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ABSTRACT 


This thesis is a presentation of several alternative 
acoustic filter designs which allow Space Shuttle payload 
experiment initiation prior to launch. This initiation is 
accomplished independently of any spacecraft services by 
means of a matched band-pass filter tuned to the acoustic 
signal Characteristic of the Auxiliary Power Unit (APU) 
which is brought up to operating RPM's approximately five 
minutes prior to launch. 

These alternative designs include an analog filter built 
around operational amplifiers, a digital IIR design 
implemented with an INTEL 2920 Signal Processor, and an 
Adaptive FIR Weiner design. Working prototypes of the first 
two filters are developed and a discussion of the advantage 


of the 2920 digital design is presented. 
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I. INTRODUCTION 


A. BACKGROUND 

In April of 1981 a new era of space exploration was 
opened for mankind when the Space Shuttle successfully 
returned to Earth after its first orbital mission. 
Notwithstanding the significant capabilities which this new 
and radically different concept in space transportation has 
afforded traditionally large and well funded government and 
industrial agencies, the Space Shuttle has also ushered in 
the age of the small experimenter with limited access to 
funds who has an idea which needs to be tested in space and 
who now has a means of seeing that test realized. 

The Get Away Special (GAS) Program was developed by the 
National Aeronautics and Space Administration (NASA) to 
afford qualifying teams of experimenters the opportunity to 
launch and orbit GAS payloads on a not-to-interfere space 
available basis during regularly scheduled Shuttle missions. 

The main purpose for Shuttle missions is the conveyance 
into space and deployment of large, sophisticated 
instruments into Earth orbit. Because many primary mission 
payloads do not occupy the entirety of the Shuttle payload 


bay there is frequently opportunity for the additional 


deployment of GAS payloads during Shuttle missions [{Ref. 1: 
pp. 8-9]. 

One significant requirement demanded of GAS 
experimenters is that each payload be self-contained within 
its standard size (5.0 cubic foot) NASA provided canister. 
Thus it is expected that each GAS experiment include 
provisions within its own confines for all electrical power, 
heating elements, data control and storage, and so on. In 
short, GAS payloads may not draw upon any Shuttle services 
for their normal operation beyond an on-off switch control 
which may be thrown locally by an astronaut should the 
Shuttle timeline of events allow for such intervention. 

This requirement for a completely self-contained 
experiment necessitates a well-planned execution of tasks 
performed under automated control. Although the concession 
for astronaut involvement in experiment initiation is 
provided, during some critical periods it is not feasible 
for astronauts to tend to GAS payload requirements, e. g., 
during launch and landing phases. At these times it then 
becomes necessary to design for complete automation of GAS 
experimental control, to provide most significantly for 


independent initiation of experimentation. 


B. STATEMENT OF GOAL 
It is the purpose of this thesis to consider a design 


algorithm to accomplish an automated initiation of GAS 
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experimentation based solely upon the passive detection of a 
well-defined event in the evolution of the Shuttle timeline 
of operations. Specifically it is desired that an 
experiment be undertaken to measure the acoustical and 
vibrational environment present in the Shuttle payload bay 
from prior to Space Shuttle Main Engine (SSME) ignition (at 
approximately T-6 seconds) until the Orbiter has exited the 
Earth's atmosphere (at approximately T+2 minutes). 

Previous GAS missions have been deployed to accomplish 
this same mission goal. In these previous missions the 
solution to the problem of independent experiment initiation 
was addressed by way of a simple sound pressure level (SPL) 
sensor used to detect the unmistakable roar of SSME's as 
they ignite at T-6 seconds. By this method the sizable 
impulse thus generated can easily be used to signal 
experiment initiation. In this way power is applied to data 
collection and storage elements whose purpose is to record 
the information relevant to the mission of the experiment. 

The obvious shortcoming in this experimental scheme is 
that it uses as its prime mover the very noise and vibration 
which it presumes to measure. Though the delay caused by 
impulse generation and transmission via the SPL sensor may 
be minimal, it nonetheless requires a finite amount of time 
for tape transport transients to settle and begin the 
recording of meaningful data. This delay has been reported 


to be as much as several seconds and so can be seen to be a 
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significant gap in any serious analysis of the acoustical 
and vibrational transients which must accompany ignition and 
launch. 

One means of lessening the impact of transient delay is 
to substitute a solid state data recorder for the 
traditional magnetic tape variety of instrumentation data 
recorders. This idea is being investigated by another team 
of researchers at the Naval Postgraduate School for 
incorporation into a deployable GAS mission canister. 
Despite the advantage which a solid state recorder will 
afford toward minimizing the transient delay prior to 
meaningful data collection, it can never completely 
eliminate the transient effect which accompanies any scheme 
which is trying to measure the same signal which it also 
uses for experiment initiation. There is a causal 
imperative here which is inescapable. 

It is the purpose of this thesis then to develop a means 
of experiment initiation which will allow data νο το 
commence well before SSME ignition. In this manner we will 
be allowed a full measure of the acoustical and vibrational 
environment which is present in the Shuttle payload bay 


during launch. 


C. DISCUSSION OF THE GENERAL SOLUTION ALGORITHM 
The timeline of Shuttle events prior to launch includes 


the turn-on of Auxiliary Power Units (APU) at approximately 
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T-5 minutes. These units are essentially jet engines which 
provide for hydraulic power of Shuttle airfoil control 
surfaces during the atmospheric phases of launch and 
landing. They are designed to operate at very high (72,000) 
RPM's, but also generate a very specific acoustic signature 
in the audio range of the spectrum during normal operation. 
If it is possible to detect this APU acoustic signature 
during the pre-launch sequence of events and to discriminate 
this Signature from among the various other acoustic events 
which may also occur during the pre-launch phase, then it 
may be possible to signal experiment initiation by detection 
of this event. 

The emphasis of this thesis will be to describe the 
nature of the APU acoustic signature and to develop a 
matched filter which is tuned to its characteristics. It 
should be emphasized from the beginning that this it is not 
my intention to develop a classical "matched filter" which 
rigorously conforms to that definition. I do not have the 
uncontaminated APU acoustic signature data at my disposal 
which would allow that sort of an analysis. Rather it is my 
intention to examine the APU signature in the Shuttle cargo 
bay environment and to develop a filter which is "matched" 
to that contaminated signature. It is expected that an 
extremely narrow (high Q) band-pass filter will accomplish 


this goal. 
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Several different schemes for accomplishing a matched 
band-pass filter design will be discussed. Nominally this 
will include an analog design built around operational 
amplifiers and a digital design of Infinite Impulse Response 
(IIR) implemented with an INTEL 2920 Signal Processor. This . 
latter configuration will be derived from a cascaded IIR 
design which results from the Bilinear transformation of the 
analog filter. The difference equation representation of 
the digital filter transfer function will form the basis for 
the 2920 design. In addition I will discuss further design 
alternatives including an Adaptive Finite Impulse Response 
(FIR) Weiner filter and an idea for a design censes about 
a speech processing algorithm. Advantages and disadvantages 
of each approach will be discussed. 

Ultimately one design will be chosen for integration 
within the GAS experiment just described and scheduled for 


launch in an upcoming Shuttle mission. 
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II. THE AUXILIARY POWER UNIT (APU) 
AND THE SHUTTLE PAYLOAD BAY 


PRE-LAUNCH ACOUSTIC ENVIRONMENT 


A. APU DESCRIPTION 

The Auxiliary Power Unit (APU) was developed by the 
Sundstrand Corporation under contract from Rockwell 
International, the prime contractor for the Space Shuttie. 
Each Shuttle Orbiter is equipped with three complete APU's 
and associated hydraulic systems. Each APU and its 
hydrazine fuel system is independent of the other two during 
normal operations. However, there are cross-ties between 
hydraulic systems which allow any two APU's to pick up the 


load from a third should it fail during operation. 


B. APU MISSION DUTY CYCLE 

Figure 2.1 is a representative diagram of a typical APU 
Mission Duty Cycle for an entire Shuttle mission [Ref. 2]. 
It is expected that a minimum of two restarts from a cold 
condition will be typical in a mission. The baseline duty 
cycle calls for 81.1 minutes of APU operation at various 
power levels from 8.0 horsepower to its maximum rated 135.0 
horsepower. This includes launch, de-orbit, re-entry and 
landing phases and so includes operation at all altitudes 
corresponding to extremes of airfoil atmospheric resistance 


and Orbiter speed. 
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APU MISSION DIT CGE 
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APU MISSION TIME (MINUTES) 
81.1 MINUTE TIME LINE 


Figure 2.1 APU Mission Duty Cycle 
(Baseline 81.1 Minute Time Line) 

In the pre-launch phase APU loading varies minimally 
from 8.0 to 40.0 horsepower according to hydraulic 
requirements during the phase. Because the APU is designed 
to operate at 72,000 RPM's (plus or minus eight percent) 
over its entire range of output shaft horsepower, its steady 
State and dynamic vibrational characteristics vary little 
during the pre-launch phase. This is due to the minimal 


hydraulic loading which characterizes this phase. 


16 


APU output shaft horsepower is delivered to the 
hydraulic pump at a nominal 3800 RPM's through a two stage 
reduction gear. Although balanced to within exceedingly 
fine tolerances dictated by extremely fast rotational RPM's 
the APU is nevertheless characterized by a specific 
vibrational signature. We shall examine this signature in 
some detail because a careful understanding of its nature is 
crucial to the development of a filter dedicated to its 
detection. 

In Appendix A there is included a graphical summary of 
the results of hotfire testing of one APU installed in the 
Shuttle Orbiter. These а Power Spectral Density (PSD) 
plots of accelerometers mounted along the x-axis (DO280A) 
and z-axis (DO281A) of this particular APU for various 
levels of loading. Also shown for reference is a PSD plot 
of the background noise prior to APU ignition. Relative to 
the plots of APU vibration we see that in each case the 
background noise is no less than two orders of magnitude 
lower than the PSD peaks of data obtained from the loaded 
APU. 

The results of this test reveal a very particular 
vibrational signature for the APU. It should be noted that 
there are consistently repeating peaks at 600 Hz and two 
harmonics above this value at 1200 Hz and 1800 Hz. Тһе 
bandwidth of the filter employed in this investigation had a 


3 dB rolloff at 2300 Hz. This obviated a close examination 
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of higher spectral components although an expected 2400 Hz 
peak is present in several plots despite the attenuation. 

The significance of these plots is in the consistency of 
the component spectral elements despite APU loading. 
Although the relative and absolute magnitudes of the 
fundamental 600 Hz peak and its harmonic constituents vary 
somewhat over the range of loading displayed the spectral 
location of each remains fixed. This shift in magnitudes is 
of some concern to mechanical engineers as it has been shown 
that failures in some rotating machinery have occurred when 
vibration signatures have deviated in this manner. But our 
concern is with S consistency of the location of the 
Spectral peaks as this confirms the RPM stability of the APU 
over expected levels of loading. 

We thus have a basis for further investigation of the 
acoustic environment in the Shuttle payload bay. We know 
that there is a specific vibrational signature which 
accompanies the normal functioning of the APU and we may 
expect that this vibration will translate to an acoustic 
signature in the Shuttle pre-launch environment. We now 
proceed to investigate this proposition with an examination 
of the acoustic environment present in the Shuttle payload 


bay prior to launch. 
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C. STS PAYLOAD BAY ACOUSTIC ENVIRONMENT MEASUREMENT 
INSTRUMENTATION 


Data instrumentation recorders were flown on all early 
Shuttle flights to measure the acoustic environment present 
during the launch and landing phases of these missions. 
These experiments were conducted under the auspices of the 
NASA DATE (Dynamic, Acoustic and Thermal Environments) 
Working Group which has as. its mission the development of 
improved methods for predicting all aspects of STS (Shuttle 
Transportation System) payload environments. Pursuant to 
this study we shall make use of data collected during each 


of the following three Shuttle missions: 


-- STS-2 (conducted November 12-17, 1981) 
-- STS-3 (conducted March 22-27, 1982) 


-- STS-4 (conducted June 27 - July 4, 1982) 


In each of these missions it is only the data which was 
recorded just prior to the launch which is of any 
Significance for our purposes here. 

Of particular interest to us is the acoustic data 
recorded at three specific locations in the Shuttle pavload 
bay on each of the three flights listed above. On each 
flight sixteen selected sensors comprised the STS 
Development Flight Instrumentation (DFI) system. Of these 
sixteen sensors, four internal microphones were used to 


measure the acoustic environment present in the payload bay 


P9 


at launch. Rounding out the array of acoustic sensors were 
three additional microphones mounted externally. All 
microphones were manufactured by Gulton Industries with only 
minor alterations differentiating the three external sensors 
from the four internal ones. The relative location of each 


of these seven acoustic sensors is shown in Figure 2-2. 
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Figure 2.2 DFI Acoustic Measurement Locations 


Sensor location designators, dynamic range and frequency 


response of each microphone are shown in Table 2-1 on the 


following page [Refs. 3 and 4]. 
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Table 2.1 


DEVELOPMENT FLIGHT INSTRUMENTATION (DFI) 
ACOUSTIC MEASUREMENT INFORMATION 


Microphone Range Cargo Bay Orbiter Station Location 
Number (dB) Location X Y Z 
VO8Y9219A 11071972 Internal 863 -100 381 
VO8Y9220A 110-157 Internal 1190 O 427 
VO8Y9401A 130-177 External 639 ITS 500 
VO8Y9402A 130177 External 1281 4.2 500 
VO8Y9403A ΙΟ; Internal 1306 12.0 400 
У08Ү9404А 130-177 External 1296 O 300 
VO8Y9405A 110-157 Internal 640 4 423 
Note: The frequency response of all microphones is wide- 


band, 20 Hz to 8 kHz. 


D. STS PAYLOAD BAY PRE-LAUNCH ACOUSTIC ENVIRONMENT 

As indicated in the previous section we are principally 
interested in the response of three internal microphones to 
the Shuttle payload bay environment. The intent is to 
examine the environment prior to APU start-up to determine 
the noise background present before the APU acoustic 
Signature is impressed upon this background. Then 
microphone responses will be examined after APU start-up to 
reveal the APU acoustic signature over the noise background. 
Based upon our previous examination of the APU vibrational 
Signature evident in equipment testing we expect to see that 
spectral peaks at the fundamental and harmonic frequencies 


of 600 Hz will become clear at the time of APU start-up. 
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Appendix B is a summary of PSD plots of the acoustic 
environment present in the Shuttle payload bay at three 
different locations for the three missions listed in the 
previous section. As noted in Figure 2.2 the locations of 
the three microphones are dispersed throughout the payload 
bay to reveal variations in the acoustic signature from one 
location to another. Microphone VO8Y9405A (which shall be 
referred to as 9405 for simplicity) was positioned near the 
forward bulkhead of the payload bay, furthest removed from 
the APU. Microphone VO8Y9219A (9219) was located low and 
amidships, and microphone VO8Y9403A (9403) was located at 
the after bulkhead, closest of the three to the APU. All 
three were identically configured to respond to a dynamic 
range of 110-157 dB. 

The payload bay acoustic data is presented in pairs of 
plots with the first of the pair showing the signature 
before the APU is turned on and the second showing the 
signature approximately thirty seconds later after APU 
start-up. This data was obtained from an analog magnetic 
tape copy of the original data recording which was made 
available from the DATE group at Aerospace Corporation 
headquarters in Los Angeles. 

There is doubtless some extraneous noise introduced in 
the process by which the original tape was copied to yield 
the tape available at Aerospace. Furthermore, the 


generation of the Aerospace copies are not known. However 
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it is known that measures were taken to minimize the error 
introduced in the dubbing process. On most copies a Tape 
Speed Compensation (TSC) process was employed which ensures 
that the tape transport travels at the same speed as when 
originally recorded. That this process is indispensable is 
realized upon examination of the PSD's obtained for 
microphones 9405 and 9219 on STS-3. In these two cases 
alone TSC was not employed due to operator error at a 
previous generation. The noise floor thus generated is seen 
to be an order of magnitude greater than in other plots and 
is severe enough to mask the desired information. In all 
other tape copies TSC was employed. 

(Another generation of tape copies was recorded for use 
at the Naval Postgraduate School in the development of the 
experiment described earlier. This recording process was 
accomplished using a Hewlett-Packard Model 3964A 
Instrumentation Data Recorder in an FM mode to allow 
recording of analog data from O to 8 kHz. The HP recorder 
also employs a tape speed servo control which also ensures 
tape speed accuracy. PSD plots were obtained in all cases 
for the dubbed tape to verify the accuracy of this latest 
dubbing routine. In each case the PSD of the dubbed data 
was confirmed to be a good reproduction of the "original" 
except for the region below 200 Hz. In this region the 


reproduction was not as good as in the region above 200 Hz 
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but for our purposes this is an inconsequential 
shortcoming.) 

An examination of the PSD's of the remaining sets of 
data not corrupted by the lack of TSC reveals the expected 
behavior. In all cases the noise background remains 
essentially unchanged from the first of the plot pair to the 
second except for the effect of the impressed APU signature 
clearly evident in the second. In every plot performed 
after APU start-up the characteristic 600 Hz peak is evident 
to some degree and in many instances we also see the 
harmonic components at 1200 and 1800 Hz. This is especially 
true for those plots reflecting the environment surrounding 
microphone 9403 which is located only a bulkhead removed 
from the APU's themselves. However, of some concern is the 
fact that the 600 Hz peak is least evident for microphone 
9405 which is at the forward bulkhead furthest removed from 
the APU's and where it is expected that the GAS canister 
will be placed for the upcoming mission. 

The salient points are therefore as follows: 

1. The APU does provide a specific signature which becomes 
clearly evident in the audio spectrum of the Shuttle 
payload bay pre-launch acoustic environment. There are 
well-defined spectral peaks at a fundamental frequency 
of 600 Hz and at integral harmonics thereof. 

2. The magnitude of the APU signature is variable in the 
payload bay depending upon the location of the sensor 
used to detect it. A sensor placed closer to the after 
bulkhead will be more apt to respond to the APU 
signature in a manner which will facilitate matched 


filter performance, but the signature is evident 
throughout the payload bay. 
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Therefore our task is to develop a matched filter which 
will detect the presence of a spectral peak at 600 Hz and/or 
at coincident harmonic multiples of 600 Hz. We will 
attempt to realize the needed performance emphasizing only 
the most evident 600 HZ peak. Based upon the results of 
this design, will then know if we must consider the 
additional impact of the less evident harmonic elements. 

Our desire is to implement the scheme which provides the 
simplest, smallest, most reliable, and least power consuming 
design which will ensure APU detection prior to launch. 
Therefore detection of all higher order harmonic components 
is less important than the development of a filter which 
accomplishes the primary goal. We shall examine both analog 
and digital methods for implementing our matched filter and 
compare the effectiveness of the various designs before 


selecting the device which will orbit the Earth. 
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III. ANALOG FILTER DESIGN THEORY AND IMPLEMENTATION 


The traditional method of filter implementation in 
electronic circuitry was for a long time characterized by an 
implementation of passive and discrete resistive, inductive 
and capacitive components tuned to respond to the desired 
frequency components of the input signal. In the earlier 
years of circuit design this procedure involved a lengthy 
process of theoretical development and precise -—Á 
selection. This was often a tedious process involving 
component trial and substitution. 

Analog filter design took a great leap forward with the 
advent of integrated operational amplifiers (op-amps) and 
later, integrated circuit (IC) technology. Now for 
instance, using an integrated circuit such as the National 
Semiconductor AF100 Universal Active Filter as a design 
basis, it is possible for a circuit designer to construct a 
precise analog filter circuit with a surprising economy of 
effort. We will use the Biquad Elliptic Filter design which 
forms the basis of the AF100 to implement the analog designs 


we shall develop herein. 


A. PRACTICAL DEVELOPMENT OF AN ANALOG BAND-PASS FILTER 
We will begin our development of a tuned filter design 


by examining an analog IC implementation of a band-pass 
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filter with a center frequency of 600 Hz. (We could expand 
this band coverage to include the two additional center 
frequencies of 1200 Hz and 1800 Hz if it proves that such a 
design modification is necessary.) In this development we 
shall choose to build an Elliptic (or Cauer) filter which 
exhibits a much steeper roll-off outside the passband over a 
Butterworth or Chebyshev design of equivalent order. The 
disadvantage of ripple in the passband, which characterizes 
Elliptic filters, will cause minimal impact and will not be 
a factor in the realization of our goal. In fact we can 
allow the ripple in the passband to be relatively high 
because our intent is not to pass a faithful representation 
of the APU signature but only to detect its presence. Thus 
our goal is to construct a band-pass filter with a high 
quality factor and narrow passband. This corresponds to a 
steep roll-off out of the passband. 

The method which will be employed to realize this band- 
pass filter will be to describe the characteristics of the 
desired analog band-pass design and, using a low-pass-to- 
band-pass transformation, solve for the form of the 
corresponding low-pass prototype using transform relations. 
This will allow us to determine the necessary order of the 
low-pass design which can subsequently be transformed into 
the required band-pass filter. 

If we again examine the PSD plots of the APU noise above 


the background for the 600 Hz component we can generalize a 


27 


desired filter transfer function to approximate this 
response. Let us choose the 3 dB points of the band-pass 
filter (centered at 600 Hz) to be at 575 and 625 Hz. We 
will allow the pass-band ripple width (PRW) to be as much as 
2 dB within the pass-band. Let us furthermore require the 
stop-band attenuation on either side of the pass-band to be 
down at least 30 dB at 500 and 700 Hz. This represents a 
very steep roll-off characteristic and suggests the use of 
an Elliptic filter design for that reason. In fact, to 
achieve this degree of roll-off ina low-pass design would 
require a model prototype of order 6. The equivalent 
Chebyshev design would require a minimum order of 14, while 
the Butterworth low-pass filter equivalent order would be at 
least 63. Clearly the Elliptic design is our only viable 
alternative. 

The low-pass to band-pass transformation for analog 
filters results ina transfer function which raises the 
order of the low-pass equivalent by a factor of two. 
Therefore if we design a band-pass filter it will 
necessarily consist of a number of second-order stages in 
the final implementation. 

1. Low-Pass to Band-Pass Frequency Transformation 

In order to develop the transfer function of am 
appropriate analog band-pass filter we must begin with the 
transfer function of the corresponding analog low-pass 


filter which may be transformed into the desired band-pass 
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filter by a frequency transformation. However, the 
characteristics of our final filter are Known in band-pass 
form. Thus we must deduce the analog low-pass design from 
the band-pass characteristics and then apply the analog 
transformation to the low-pass prototype to realize our 
goal. This development is a combination of procedures 
described in Chen [Ref. 5] and Johnson [Ref. 6]. 

We wish to design an analog band-pass filter having 


the following characteristics 


f, - 575 Hz 
f4» = 500 Hz 
Eg OS HZ2 
Гці = ТОО Hz 
PRW = 2.0 dB (allowable ripple in the passband) 


MSL = 30 dB (minimum attenuation in stop-band) 


In this analog development the prime frequencies 
refer to the band-pass function and the unprimed frequencies 
to the low-pass function. Figure 3.1 is a graphical 
depiction of the relationship between the transfer function 
transform pair. The negative axis frequencies arise from 
the mathematics of this development. However, we shall only 
be functionally concerned with the positive mS 
transformation. We are also considering the low-pass 


function to be normalized (w = 1). 
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Figure 3.1 A Low-Pass to Band-Pass Frequency 
Transformation in the Analog Domain 


A suitable transformation must therefore accomplish 


the transform relations detailed in Table 3.1 [Ref. 5]. 


Table 3.1 


LOW-PASS TO BAND-PASS TRANSFORM PAIRS 


Low-Pass Function Band-Pass Function 
ل‎ = o (2 со 
ш = 1 wW’ 7 Q'pi 
W = -1 о ол ош”; 
ш = -о об ο 


As developed in Chen [Ref. 5: p. 235], the analog 
frequency transformation which will accomplish a low-pass to 
band-pass frequency transformation (H(s) zz» H(s')] is given 


by the following relation. 
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S'2 + 0510р2 
s کے‎ ои AA — 
S’(Wpi + Фр.) 


or if we substitute the above values 


S/? % 412.(3.59375 х 105) 


S = 
5’ 92π950 
or, using s = jo 
ἀπ «(3.59375 x 10%) - 0/2 
ي‎ M 
07%21»%50 


Making the following substitutions into the 


preceding equation yields 


941 = 2n 500 


==> 0 = 4737-0000 


and 


Qqa2 7 27700 


==> Wq, = -3.7321429 


Therefore we are left with the need to design an 


analog low-pass filter with 


€ 
n 
I 


1 rad/sec, and 


(Q) q 3.7321429 rad/sec 
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This leaves us with a normalized low-pass transition 


width (TWi,) of 


ΤΥ 1 ϱ Ξ Ф с a Qc 


2.1321429 


We now have enough information to enter the tables 


in Johnson [Ref. 6] to obtain the data shown in Table 3.2. 


Table 3.2 


ELLIPTIC LOW-PASS FILTER DATA 
(for the band-pass filter low-pass prototype) 


A B C WZ ΜΜ > ΚΜ 


21.16400 0.787152 0.842554 4.600435 0.715610 1.258925 


2 600 Hz Elliptic Band-Pass Filter Design 


In the case of elliptic band-pass filters the 
transfer function may be factored into the product of 
second-order functions. The two factors arising from each 


second-order low-pass stage have the forms [Ref 6: p. 100] 


= Ki /C/A(s? + Άιωξ) 
Um 1 i 62 * (Do,/E)s * D?oij on 


and 
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Va] K; /C/A(s? + w3/A,) 


γι], 5: + (@,/DE)S + 03/D?) =; 








where 
T CT t gula s: — (250): 
E = = —— M MM — — 
B | 2 
1 = (BE) 2 | 
a а 
210 uo 
and 


1 
A, = 1+ —-(A + /A? + 4AQ?2 ) 
20: 
апа Q - f,/BW - 600/5072 12. The coefficients A, B 
and C are those of the normalized low-pass function given 
in Table 3.2 above, and K, and K, are related to 


the stage gain K by K = K,K,. 
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Equations 3.1 and 3.2 above are of the general form 


Vis p(s? + aw?) 


V, S2 + BWoS % то; 3.3 
which is identical to the form of the low-pass transfer 
function, except for the replacement of o, by the 
corresponding low-pass term oc. 

Our analog band-pass filter will have two stages of 
the form given by Eq. 3.3. Comparing Eq. 3.3 with Eq. 3.1 
and Eq. 3.2 reveals the following transfer function 


coefficients of the band-pass filter stages [Ref 6: p. 118]: 
1) First stage 


ο Ξ K, /C/A 


a = A, 
B = D/E 
Үү e 
2 ) Second stage 


p = К, /С/А 


a = 1/А, 
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D 
tl 


1/DE 


y = 1/D? 


In the FORTRAN program ABPDBP (included as 
Appendix C) many of the "Ee larions which are indicated in 
this thesis development will be performed. In Section 1 of 
this program we begin with.desired filter parameters and 
tabulated values which correspond to the filter we wish to 
build. We then calculate several derived parameters from 
these initial values. Next we perform further calculations 
(which shall be developed shortly) which yield values for 
filter resistors and capacitors. 

In Section 2 of ABPDBP we use the two sets of filter 
parameters which correspond to each of the filter stages 
indicated by Eq 3.3 to arrive at the overall transfer 
function. ABPDBP describes the corrections which must be 
made to provide for pre-warping of frequencies preparatory 
to a digital transformation (which shall be discussed in 
Chapter 4) but these changes can be ignored in this analog 
discussion. Thus we will use f, = 600 Hz (which 
implies the use of WO, not WODIG) in the program 
calculations. The fourth order analog filter transfer 
function which results from this development is given in 


Equation 3.4. 
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* 3 
bos’ + bs? 


+ а,5? + а,ѕ ға, 
+ b.s? + Ь,з + Ы, 


The values of the coefficients іп this analog 


transfer function representation are given in Table 3.3 


which follows. 


Table 3.3 


ANALOG ELLIPTIC BPF FOURTH ORDER COEFFICIENTS 
(Normalized coefficients with gain 0.03981) 


Coefficient Value 
ao 1.0000 
аі Ore 
а; 2.9587 
а, ou 
a, 1.8991 
|o): 1.0000 
b, 2.4351 
b+ 2. 1642 
Б. 3.3558 
D 1.8991 


KAKA 


От 


101% 


LO? 
1 
102 
1024 


In Section 2A of the program ABPDBP the poles and 


zeros of the analog transfer function are then calculated to 


demonstrate the stability of the filter design. The values 


for the poles and zeros may be observed in the output of 


ABPDBP and are reproduced graphically in Figure 3.2 on the 


following page. The poles of the filter lie within the left 
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half of the s-plane and this confirms the stability of our 
design. 
3. Analog Band-Pass Filter Simulation 
Now that we have developed the transfer function 
which describes the desired analog band-pass filter we can 


use this function to simulate the active operation of the 


ιν RO AUT FOR ANALOG ELLIPTIC BPF 
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Figure 3.2 Pole/Zero Plot for the Analog Elliptic 
Band-Pass Filter 


filter. The FORTRAN program ABPFR (which is included as 
Appendix D to this thesis) is used to examine this 


particular band-pass filter simulation. Figures 3.3, 3.4 
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and 3.5 which follow are the results of this computer 
Simulation of the filter response for the device we have 
just. designed. The range of frequencies of the simulated 
computer input is DC to 1 kHz. The simulated amplitude is 
constant over the range of input frequencies. 

In Figure 3.3 we see the amplitude response which is 
near zero at all but the passband frequencies around 600 Hz. 
Between 500 and 700 Hz we confirm the desired filter 


response. The center frequency is located at 600 Hz and 


ANALOG ELLIPTIC ΒΡΕ FREQUENCY RESPONSE 
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Figure 3.3 Analog Elliptic BPF Frequency Response 
(Computer Simulated Amplitude Response) 
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there is a significant minimum at the center frequency due 
to the effect of the passband ripple of 2.0 dB. Furthermore 
we observe a half power point (3.0 dB down point) at about 
575 Hz and 625 Hz as specified in our design. 

In Figure 3.4 we again observe a computer simulation 
of the amplitude response of the filter, this time measured 
in decibels. The marked presence of notches at about 500 Hz 
and 700 Hz is obvious, and the 30 dB minimum loss in the 
stopband is also confirmed. We also have graphical 


confirmation of the 2.0 dB ripple width in the passband. 


ANALOG ELLIPTIC BPF FREQUENCY RESPONSE 
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Figure 3.4 Analog Elliptic BPF Frequency Response 
(Computer Simulated Amplitude Response in dB) 
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Finally, in Figure 3.5 we view the computer 
Simulation of the analog filter phase response. Although 
our application is not phase dependent (due to the fact that 
it is the presence alone of the 600 Hz element which is of 
concern to our circuit--not its accurate transmission), we 
do confirm the significant effect upon phase for our 
elliptic filter in the passband between 500 Hz and 700 Hz. 


Between these two frequencies we observe a 360 degree shift 


in phase. 
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Figure 3.5 Analog Elliptic BPF Frequency Response 
(Computer Simulated Phase Response) 
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B. HARDWARE IMPLEMENTATION 

1. Biquad Analog Nd MES ptic meter 

There are many ways to perform a hardware 

implementation of the analog band-pass transfer function we 
have just developed. One relatively easy method employs the 
use of op-amps as the active filter component. We shall use 
a Biquad op-amp filter implementation which exhibits good 
stability and ease of — Additionally, implementation 
Е „~- Simpler by the use of a 74124 quad op-amp microchip 
which allows a single chip per second-order stage. The 
generalized circuit diagram for a second-order stage of a 


Biguad filter is shown in Figure 3.6 [Ref. 6: p. 127]. 





eure 3.6 Ῥπο ισα Elliptic Filter Circuit 


Component resistor and capacitor values for the 


Biquad filter depend upon the low-pass normalized 
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coefficients and the derived complements we have already 
evaluated. We begin ο development by choosing a standard 
value for C, (given roughly by 10/f, ШЕ) апа 

then proceeding to calculate elemental values. In the 
equations which follow the values for C, and R; 

are arbitrary within limits, and are chosen to minimize the 
spread of resistance values. We pick C.-C, and 

R; -» l/(0$9€C4). 8,5 and D are as given previously. 


The first stage values are thus [Ref. 6: p. 126]: 


E /A/C 


KDo C, 


К, 7 KR, /C/A 


R, = 





По. С: 


А 
К, = — /R1/K 
C 


D /A/C 





Rg, = 
KA, “o C+ 
CSR} 

R, = 
С; 
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Similarly, the second stage values are given by 


DE /A/C 


KW oC, 


R, = 


R, = KR, /C/A 





WoC; 


К, = I /R4/K 
A, /A/C 





Rs = 
KDw,.C, 
С.К; 
К, = 
C2 


In Section 1 of the program ABPDBP (introduced as 
Appendix C) we calculate the resistor values for the Biquad 
band-pass circuit just discussed. The resulting component 
values which were thus derived are shown in the appendix and 
are also included here as Table 3.4. These are computed 
values for resistance and capacitance. In fact the circuit 


is constructed by selecting standard values as close as 
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possible to these values and then tuning the circuit for the 
desired performance. Tuning is accomplished in each stage 
by adjusting R, to set the notch frequency fz, R, to set 

the center frequency f,, R, to set Q, andR, or R, to 


set the gain. 


Table 3.4 


BIQUAD ELLIPTIC BAND-PASS FILTER COMPONENT VALUES 


1st Stage 2nd Stage 
Component Value Component Value 
С, . 00996 С, .01030 
С, .00995 С; .01034 
R1 2607 Ry 267 
R. 257 R. 2679 
Rs 105 Rs 24 2 
R, 14.8 R, 14.8 
к, 2957 К, 266 
R; 139. R; 815. 
К, 437. К, 452. 
Note: Capacitor values are uF, resistor 


values are kQ. 


The resulting schematic for the fourth-order Biquad 
elliptic band-pass filter is shown in Figure 3.7. 
2. Follow-Up Logic Circuitry 
When the band-pass filter is implemented the effect 
is to produce a response which narrowly limits the passband 
to within a few tens of hertz about the center frequency of 


600 Hz. Still, the output of this filter will be of 
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TP p^ 


First Stage Second Stage 


re 3.1 Biquad Elliptic Bamd-Pass Filter Circuit 


Sinusoidal nature and inadequate to drive a microprocessor 
interrupt designed to accommodate TTL logic levels. Thus we 
must include further circuitry into our design which will 
send a TTL compatible logical signal to the microprocessor 
when the APU signal is detected. The circuit which 
accomplishes this is shown in Figure 3.8. 

The output from the filter stages is first sent to a 
linear amplifier constructed around a 741 op-amp. Because 
the APU signal is low voltage out of the microphone detector 
it is necessary to amplify the filter output prior to 
logical evaluation. 

The decision of whether or not a 600 Hz component is 


present is the function of comparator and counter elements 
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which follow the amplifier. If the amplitude of the 
amplified filter output goes above the threshold set at the 
reference input of the LM3ll-based comparator then a pulse 
is developed for the duration that the input signal exceeds 
the threshold level. A negative-edge triggered 74121-based 
one-shot multivibrator follows the comparator. It is 
designed to send a one millisecond pulse to the counter 
stages which follow any time the comparator detects an input 


Signal which exceeds the threshold level. 


*5N 


To 
NSC-800 





Figure 3.8 Follow-Up Pulse-Shaping Logic Circuitry 


Microcirceurts Components 
1: LM311 Op-Amp R1: 100 КО 
2: 74121 1 msec One-Shot К2: 20 κο 
3: 74161 4 Stage Counter КӨК” 15 7ЕО 
4: 74161 4 Stage Counter R4: 470 КО 
5: 7404 Inverter CT: OFT rE 
6: 555 0.5 sec Timer Co. Πο HB 
7: 7432 AND Gate 

8: 7404 Inverter 

9: 7474 D-Type Flip-Flop 
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The two 74161 counter stages which follow the 
multivibrator are designed to count up to 255 occasions of 
the threshold being exceeded in a .5 second period before 
the decision is made that a valid 600 Hz signal was 
detected. This is an arbitrary figure. The .5 second 
period is established by the 555 timer which is also fed by 
the one-shot multivibrator. If the counter stages do not 
sum to 255 within a .5 second period then the 555 resets the 
counter stages to zero and counting begins anew with the 
comparator. If the ue does reach 255 within the .5 
second period then a latch is set for the remainder of the 
.5 second period. This TTL level signal is the one which 
provides the microprocessor interrupt indicating that the 


APU signal has been detected. 


C. ANALOG BAND-PASS FILTER IMPLEMENTATION RESULTS 

Figure 3.9 on the following page oma photograph of the 
actual frequency response of the analog elliptic band-pass 
filter we have developed. A sweep generator was used to 
input a ramped sinusoidal input comprised of a linear 
continuum of frequencies (generated by application of a 
skewed triangular input to a voltage controlled frequency 
oscillator) in the range of approximately 100-1000 Hz. 
Because the ramp generator does not exhibit an instantaneous 
return, the return also generates a down-frequency response 


albeit at a rate greater than that of the up-frequency ramp. 
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Figure 3.9 Anal oT a or Ta PPE = Response 
(Photograph of Actual Filter Amplitude Response 
to a Ramped Sinusoidal Input) 


This gives rise to the appearance of a double response which 
is noted in the figure. Actually we are observing a 
multiple reponse over successive up and (faster) down ramps 
of the input sinusoid. Thus we are able to observe 
graphical confirmation of the filter amplitude response 
predicted in the foregoing discussion. 

As expected we observe a very narrow filter bandpass 
response (with frequency limits we will look at more closely 
in the following paragraph). The curious extended responmse 
("hump") at the upper end of the passband is due to the 
inexact placement of poles and zeroes accomplished by tuning 


of the filter response in the aforementioned manner. 
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Figure 3.10 Analog Elliptic BPF Frequency Response 
Upper trace (Input): 50 mV/div scale 
Lower trace (Output): 1.0 V/div scale 
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In Figure 3.10 we examine this response more 
specifically for discrete frequencies in the range of 500 Hz 
to 700 Hz. Instead of applying a ramped sinusoid we input 
five discrete sinusoids while maintaining a constant 
amplitude. Thus we again observe the very narrow bandpass 
filter response at least within the limits presented here. 
We also confirm the rapid shift in phase of 180 десе бей from 
the lower to the upper bound in agreement with theory. 

Πο this examination by itself does not confirm the 
desired filter response, it does so when considered with the 
results of the previous figure. 

In Chapter 4 we will use the results of this analog 
filter implementation to develop an equivalent digital 
realization. To do this we will use common transformation 
techniques to arrive at a z-domain transfer function which 
we will then reduce to a difference equation. This format 
will then allow us to realize a digital elliptic filter by 
use of the INTEL 2920 Signal Processor. This hardware 
realization of the digital filter will be accomplished in 


Chapter 5. 
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IV. DIGITAL FILTER DESIGN 


When designing an IIR digital filter for a specific 
application it is common practice to first develop an analog 
filter with appropriate characteristics as we did in the 
preceding chapter. Once the analog design is attained it is 
then possible to transform this analog filter into a digital 
filter with the desired passband characteristics. 

There are several reasons why it is desirable to use 
this approach [Ref. 7: p. 5-7]. Of primary importance is 
the fact that the art of analog filter design is highly 
advanced. Consequently there are many techniques available 
for implementing specific designs. Because useful results 
can be achieved, following established analog design 
procedures presents advantages in the amount of effort which 
must be spent in the design phase. 

Additionally, many useful analog design methods have 
relatively simple closed-form design formulas. This greatly 
faci tates the implementation of the corresponding digital 
filters. 

Finally, in many applications it is of interest to use a 
digital filter to simulate the performance of an analog 
linear time-invariant filter. 

There are many alternative methods for accomplishing a 


transformation of fixed filter characteristics. In each 
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case known analog filter characteristics in the frequency 
domain (the Laplacian "s" domain) are converted to similar 
characteristics in the digital "z" domain. Each of these 
techniques introduces a non-linearity into the resulting 
amplitude and phase characteristics of the original analog 
filter. If necessary to preserve the phase, equalizers may 
be employed to return the phase characteristic to a nearly 
linear behavior over the region of interest in the digital 
domain. In our case any phase distortion can be ignored 
because we are only interested in frequency detection and 
not accurate reproduction. 

Generally speaking, when beginning with an analog low- 
pass design, we may proceed in a number of ways to arrive at 
a corresponding digital band-pass filter realization. For 
instance, we may first transform the low-pass filter to an 
analog band-pass design (as we did in Chapter 3 for the 
low-pass to band-pass transformation) and then employ an 
analog to digital transformation to yield the digital 
filter. Alternatively we may choose to employ the analog to 
digital transform on the low-pass filter and then apply a 
digital low-pass to digital band-pass transformation to 
realize our goal. Finally, it is also possible to combine 
these two-step routines into a single-step analog low-pass 
to digital band-pass direct transformation. These options 


are shown in Figure 4.1 [Ref. 5: p. 269]. 
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Figure 4.1 Analog and Digital Frequency Transformations 


It should be reiterated that our goal in this section 
will be to develop a digital filter of Infinite Impulse 
Response (IIR) characteristics. This means that our filter 
will use the results of previous outputs to realize a later 
output. Although Finite Impulse Response (FIR) digital 
filters offer several qualitative advantages over IIR 
designs in the areas of phase linearity, stability, and an 
inherent protection against round-off error, they also 
require a larger number of delay elements to realize а 
design with a steep filter roll-off. This will be of 
concern to us when we realize an implementation in hardware 
with devices limited to a relative few number of filter 


transfer function poles and zeros. 
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A. ANALOG BAND-PASS TO DIGITAL BAND-PASS FILTER DESIGN 

An analog-to-digital bilinear transformation makes it 
possible to apply a relation which transforms an analog 
band-pass filter into a desired band-pass digital design. 

We will realize the 600 Hz digital bandpass filter by 
applying the bilinear transformation to the transfer 
function of the analog band-pass filter we developed in 
Chapter 3. Once implemented we will examine the performance 
ВЕ filter in view of our goal of APU start-up 
identification. If necessary we will determine which 
refinements and modifications to our design may be necessary 
to realize our goal. 

We recall from Chapter 3 that the transfer function of 
the analog elliptic band-pass filter was given by the 
product of the two second-order functions given by Eqs. 3.1 
and 3.2. This product has been computed (as shown in 


Appendix C) and is found to be 


У, p(s‘ + Fs? + Gs? + Hs + J) 

У, Ss“ + Ms? + Ns? + Ps +Q 
where 

p = 0.039811 

F = O 


29.587 x 10* 


G) 
| 
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H = 0 


ο 155791 x 19:1 
M = 0.24351 x 103 
М = 27.642 х 10% 
Рр = 3.3508 x 10? 
Q = 189.91 x 1022 


The poles of the analog band-pass filter transfer 


function were shown (graphically in Figure 3.5) to be: 


-63.567 + 3.8421j x 10? 


-58.188 + 3.5859j x 10? 


The analog filter is therefore stable. 

To transform the analog band-pass transfer function into 
a digital version we will use the Bilinear Transformation 
[Ref. 8: pp. 219-224] which is characterized by the 


following relation 


ЖІ 
а. 
T Z + 1 4.1 

This transformation will map stable analog poles which 
are in the left-half of the s-plane into the interior of the 


unit circle in the z-plane. Thus stability is preserved in 


all cases. 
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If we then make the substitution s = jw and z = е19Т 
into Eq. 4.1 and simplify, ме can establish the relationship 
between the frequencies in the analog and digital cases. 
(In this and the following discussion we shall denote 
frequencies in the analog case with an overbar (9), 
and those in the digital case without one (w).) 


The resulting relation is 


2 4.2 


where T is the sample period given by 1/f,. In this 
case f. = (6.666 x 10*)/(4 x 192), which we will 
show shortly. This results in T -» 1.15212 x 10-'. 

This relationship between analog and digital frequencies 
is shown in Figure 4.2 and reveals that the Bilinear 
Transform does not provide a linear mapping from one 
function to another. The frequency range from O to o 
in the continuous case is warped into the frequency range 
from O to т/Т іп the digital case. 

Therefore, if we have an analog filter with transfer 
function H(s), we may then perform the following 


substitution dictated by Eq. 4.1 


H(2) - H(s)| 4.3 


s=(2/T)b(z=1)/(251;)] 
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Another way of expressing this same relation is 


‚wT E M. n 
E - H(JU)l 5 5 (2/7) tan oT/2 


Using this relation the characteristics of H(z) can be 
obtained graphically from those of H(s) as shown in 


Figure 4.2 [Ref. 5: p. 262]. 
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Figure 4.2 The Bilinear Transformation 
(showing analog and digital transfer functions 
and the non-linear warping of frequencies.) 


We see from the figure that there is no aliasing problem 
associated with the transform because the frequency is 
limited to less than n/T (8680m) in the digital 
case. However, because of the frequency warping we have to 


make a proper transform of frequency according to Eq. 4.2 
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before application of the Bilinear Transform. Consequently, 
for a transformation of the analog band-pass filter derived 
as Eq. 3.3, we must substitute f, = 590.825 Hz for 

fo = 600 Hz before application of the Bilinear 

Transform to ensure a proper transformation to the digital 
domain. Once this is accomplished all we need do is apply 
the Bilinear Transform to the resulting "pre-warped" analog 
band-pass filter transfer function. 

The FORTRAN based computer program previously introduced 
in Appendix C also provides for this development and 
implements Eqs. 4.2 and 4.3 to derive the following digital 
transfer function H(z-1) for the desired digital 


band-pass filter 


p(1 + F272 + Gz-2 ғ Н2:3 -«* Jz-*) 
H Z%—2 = —TO.-AR,  — cn 
1 + М2-1 + №-2 + Р2-: 4 077% 4.4 


where the constants are as follows 


p = 0.039516 
F = -3.6279 
G = 5.2861 

H = -3.6279 
J = 1.0000 

M = -3.6251 
N = 5.2586 
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The poles of the transfer function given by Eq. 4.4 are 


O 90781 


I+ 


0.40813j (Magnitude = .99533) 


0.90475 


It 


0.40493j (Magnitude 
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Figure 4.3 Pole/Zero Plot for the Digital Elliptic 
Band-Pass Filter (poles appear singular, but are 
in fact double and nearly coincident) 


and thus we confirm the mapping of stable poles in the 


analog domain into stable digital poles located inside the 


unit circle. This digital pole/zero plot is shown 


graphically in Figure 4.3 on the previous page. 
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B. DIGITAL BAND-PASS FILTER SIMULATION 

Equation 4.4 represents the digital filter transfer 
function equivalent to the analog filter transfer function 
we presented in Chapter 3. In a manner.completely analogous 
to that development we De able to demonstrate a 
computer graphical simulation of the digital filter 
frequency and phase response and compare these to the 
previous results. The FORTRAN program used to present this 
graphical output is included in Appendix E under the title 
DBPFR. 

In Figure 4.4 we see the digital filter frequency 
response and observe that it is nearly identical to the 
analog response in consonance with our design goal. The 
minor differences are remarkable and explicable. The center 
frequency of the digital filter is diminished to the pre- 
warped center frequency of approximately 591 Hz. 
Additionally, the two peaks of the amplitude response 
located at about 585 Hz and 595 Hz are not of equal 
magnitude. This is due to the difference of pole proximity 
to the unit circle. Although the poles appear coincidental 
in the graphical presentation in Figure 4.3, they are 


actually distinct; the pole nearer to the real axis is some 
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004 units closer to the unit circle which accounts for the 


amplitude disparity between the two poles. 


RHPL FTUDE 


Figure 4.4 
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In Figure 4.5 we observe the digital filter frequency 


response 


as measured in dB. This curve appears somewhat 


different from its analog counterpart but the important 


feature is maintained. 


A steep filter rolloff is realized 


out of the passband and the response is diminished by about 


30 dB at 


specifications. 


approximately 500 Hz and 700 Hz according to design 


Although the analog filter did not deviate 


much from this 30 dB down figure we see an added benefit of 


on 


the digital filter wherein the гоо сопе 


monotonically over our observed spectrum. 
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Figure 4.5 Digital Elliptic BPF Frequency Response 
(Computer Simulated Amplitude Response in dB) 


Finally, in Figure 4.6 we observe the phase response of 
our digital filter. Once again this closely approximates 
the severe phase distortion we observed with the analog 
filter although the center frequency is again confirmed to 
be significantly less than the nominal 600 Hz we expected of 
the earlier filter design. To reiterate, this phase 


distortion is a hallmark of elliptic filters and the 
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Bilinear transformation, but our application is not phase 


dependent. Thus we may ignore this effect. 
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Figure 4.6 Digital Elliptic BPF Frequency Response 
(Computer Simulated Phase Response) 


C. DIFFERENCE EQUATION REPRESENTATION 

The transfer function for the fourth order Elliptic 
Filter was given previously in Equation 4.4. Section 4 of 
the program ABPDBP introduced earlier in Appendix C 
accomplishes a transformation of this quotient of fourth 


order polynomials and provides an equivalent cascaded 
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representation of two second order filter stage blocks, each 


of the form 


H(z) = Y(Z) „ а, + az дат а 
Х(2) bo + Ь,2-1 + Ь,2-2 


where X(z) and Y(z) refer to the filter input and 
output,respectively. The values of the dual quadratic 
coefficients of the cascaded second order transfer function 
and as computed by the program in Appendix 4 are given in 


Table 4.1. 


Table 4.1 


ELLIPTIC BPF SECOND ORDER STAGE COEFFICIENTS 


1st Stage 2nd Stage 
Coefficient Value Coefficient Value 
Ao 1.0000 а, 1.0000 
а, -1.7503 а, -1.8780 
a, 1.0017 а, 0.9981 
Dis 1.0000 b, 1.0000 
ВА -1.8163 D. -1.8092 
Ы, 0.9910 D. 0.9822 


Both second order z-domain filter stage transfer 
functions can be manipulated in a familiar way to realize 


the following z-domain difference equation. 


64 


БАС) % а,Х(2)27:-4 а,Х(2)27:! 


- Ь,Ү(2)2-: - Ь,Ү(2)27:3 


Applying the inverse z-transform to this z-domain 


difference equation yields the time domain digital 


difference equation 


boey(K) = aoX(K) + a,x(k-1) + а,х(к-2) 
ΥΕ =b y (k22) 


The Signal Flow Graph corresponding to the difference 
equation given by Eq. 4.5 is shown in Figure 4.7. The 
difference equation representation is important because this 
is the basis for the hardware implementation of the digital 


filter which shall follow in Chapter 5. 
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Figure 4.7 Second Order Stage Signal Flow Graph 
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D. DIFFERENCE EQUATION IMPLEMENTATION SIMULATION 

We have just stated that the difference equation 
representation of the digital filter will become the basis 
for the INTEL 2920 Signal Processor implementation which is 
to follow. In order to show the adequacy of this method of 
implementation it is useful to demonstrate the impulse 
response and filter frequency response by computer 
simulation. In the following chapter sections we will 
demonstrate these simulations and show that they yield 
results in keeping with our design expectations. 

1. Digital Filter Impulse Response 

In Appendix F is presented the complementary FORTRAN 
programs S22I and S22IG. Both implement the impulse 
response simulation for the difference equation 
representation of the digital elliptic band-pass filter. In 
the case of S221 the output is digital and is shown to 
exemplify the filter response over a greater period of time 
than is usefully represented otherwise. In the case of 
S221G the output is graphical and will be presented here. 

In both these programs the impulse is equal to the 
greatest allowable input which guarantees an output of less 
than unity. This is done for reasons of filter stability as 
well as a limitation of the INTEL 2920 which will be 
discussed in the next chapter. By examining the impulse 
response we confirm the stability of the filter design by 


ensuring that the output decays to zero over time. In 
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addition we can observe the natural response of the system 


by establishing the frequency of the decaying sinusoid. 
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Figure 4.8 Digital Filter Impulse Response 


In Figure 4.8 we observe the the response of the two 
stage difference equation filter for an input of 0.0172 
applied at time T = 0. By counting the number of cycles 
which occur over a corresponding number of iterations, and 
realizing that the — A period is 0.11521 milliseconds we 
arrive at natural frequency which is very close to the 
expected 600 Hz. Additionally, it is apparently true that 


the response decays to zero with time, at least over the 
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approximately one-tenth of a second represented by the 
duration of the overall sample period in the figure. To 
confirm this suspicion we can carry out the impulse response 
for a substantially longer period of time, say over one full 
second, or approximately 8192 iterations. The results of 
this computation are shown in the output of S22I in the 
appendix. They confirm the occurence of the maximum 
amplitude of impulse response output at the xxxth iteration 
which is what we observe in the figure. 


Having realized the digital filter impulse response 


output we can perform a discrete Fourier transform of this 
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Figure 4.9 Discrete Fourier Transform of 
the Digital Filter Impulse Response 
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дата to recreate the frequency response. This is shown in 
Figure 4.9. The figure confirms a narrow band-pass filter 
function with a center frequency at approximately 585 Hz. 
This is very close to the design center frequency of 591 Hz 
and is, in fact, within the error of a single bar in this 
pattern representation. 
2. Digital Filter Frequency Response 

Now that we have Ed the stability of our 
patter design we can proceed to examine the frequency 
response of the filter over the range of interest. In 
particular we shall examine the filter frequency response 
over several frequencies in the range of 500 Hz to 700 Hz. 
The FORTRAN programs which allow this examination are S22F 
and S22FG which are included as Appendix G to this thesis. 
Due to the number of output figures they will be left in the 
appendix and we shall only give a summary of their content. 

The digital filter frequency response was examined 
for the following frequencies: 500, 575, 590.825, 600, 625 
and 700 Hz. The 590.825 simulation was chosen because this 
is the design center frequency (due to pre-warping) and we 
wish to confirm an output maximum amplitude at this 
frequency. From the figures in the appendix it is easy to 
see that the filter does in fact yield the response we 
desire. The maximum output amplitude does occur for the 
expected frequency, although the output at 575 Hz does not 


diminish appreciably from this value. However, we observe 
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output at 600 Hz is significantly less than at 590 Hz and 
even 575 Hz. This is indicative of both a steeper filter 
rolloff at frequencies greater than the center frequency and 
the effect of coefficient approximation which will be 
discussed more fully in the next chapter. The frequency 
response at both 500 Hz and 700 Hz is expectedly minimal but 
may not be usably low. If we find that the filter rolloff 
is not great enough and the response out of the passband is 
too great for our purposes then further design modifications 
may be undertaken. Accordingly, we could increase the order 
of our filter design. This would increase the number of 
filter stages in the analog implementation and therefore the 
complexity of that design. But, as we shall see, toa 
certain extent this additional filter complexity in the 
difference equation may be absorbed by the digital 
implementation we shall pursue without any increase in the 
hardware. These considerations will have to be examined 
more completely in the final analysis of the filter design 


effectiveness. 


E. ANTI-ALIASING FILTER 

When implementing a digital filter it is necessary to 
employ an analog input anti-aliasing filter to limit the 
band of input frequencies to less than half of the Nyquist 
sampling rate. This corresponds to the need to implement a 


low-pass filter at the input to the digital band-pass 
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filter. We shall see in the discussion which follows that 
the sampling frequency will be 8680 Hz. Thus our band of 
input frequencies is limited to less than one-half of this 
value, or 4340 Hz. Because our frequency of interest is 600 
Hz we have considerable freedom in choosing the cut-off 
frequency of our anti-aliasing filter. 

One option available to us is to design a low-pass 
filter with a rolloff which meets our needs. However, there 
are such filters commercially available which implement a 
compatible response which minimizes the effort required of 
the designer. One such filter is the INTEL 2912A which has 
been specifically included in the hardware kit we shall use 
to implement the digital filter we have just developed. 


This hardware implementation is the subject of Chapter 5. 
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V. THE INTEL 2920 ANALOG SIGNAL PROCESSOR 


AL OVERVIEW 

The INTEL 2920 Analog Signal Processor is actually a 
digital экесі which is implemented to perform analog 
signal processing functions. Introduced in 1979, the 288 
system is centered about the 2920 single-chip microcomputer 
which is specially designed to process real-time analog 
signals. This single chip includes within its 28-pin DIP 
configuration sufficient hardware to provide 192 program 
memory locations, scratchpad memory, digital to analog (D/A) 
circuitry for up to four separate sampled inputs, analog to 
digital (A/D) capabilities for eight individual outputs, a 
digital pipeline processor capable of up to twenty-five bit 
accuracy, and input/output (I/O) control circuitry [Ref. 7: 
p. 3-1 through 3-2] . The 2920 is capable of implementing a 
wide variety of functions which rely upon sampled digital 
data techniques. We will use the 2920 to implement our 
matched filter design which will detect the APU start. 

At the heart of the 2920's significant power is its on- 
board erasable programmable read-only memory (EPROM) which 
allows the user the convenience of customizing the 2920 for 
each intended application. Because the 2920 is a pipeline 
processor all program steps are performed sequentially 


without any conditions which may impact upon execution time. 
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Several logical conditions are allowed which affect program 
manipulation of data, but none will cause the processor to 
execute a program step out of sequence. In fact the only 
effective jump is performed at the last instruction which 
provides for a return to the beginning of the program loop. 
In this way the programmer may provide for an exact digital 
sample interval based upon program loop execution time. The 
shorter the program implementation loop the greater is the 
processor capacity to provide a faster sampling frequency. 

The necessity of providing for an accurate sampling 
interval arises out of an understanding of the 
characteristics of the sampled analog signal being 
processed. Without an accurate clock interval, provided for 
in the 2920 by the program execution loop time, significant 
noise can be introduced in the system. Even small 
variations in the sampling interval can render the analysis 
useless through the introduction of intolerable measurement 
noise. 

Each 2920 program instruction requires four clock cycles 
to execute. Given our nominal 6.666 MHz clock (the maximum 
allowed) the 2920 can therefore realize a maximum sampling 
frequency of 8.680 kHz over a 192 instruction program loop. 
This allows for a device bandwidth of greater than 4 KHz. 
Shorter programs naturally allow for a greater sampling 


frequency and thus higher device bandwidth. 
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In addition to the precision and speed of computation 
which the 2920 offers, it also allows for sequential 
processing of up to four separate input signals and eight 
analog output signals in a single program pass. This is of 


course dependent upon program complexity--regardless of 
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Figure 5.1 2920 Functional Block Diagram 
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function, any applications program cannot make use of more 
than 192 instructions to process whatever number of input 
and output signals are being manipulated. But despite this 
restriction the bandt of the 2920 is evident. In our 
application we will only make use of a single input/output 


channel. 


B. 2920 FUNCTIONAL DESCRIPTION 

Figure 5.1 on the previous page details the block 
configuration of the 2920 [Ref. 9]. It 1s divided into the 
three major subsections described as follows. 

The 192 x 24-bit Program Memory Section is a storage 
area implemented with EPROM. This section includes the 
instruction clock and timing circuits and program counter 
which control the operation of the entire device, including 
the other two sections. 

The Arithmetic Section includes a 40 word by 25-bit 
scratchpad RAM and an arithmetic and logic unit (ALU). Both 
the RAM and the ALU are two port access devices. In the 
case of the ALU one of the ports is passed through a barrel 
shifter scaler. The function of the arithmetic section of 
the 2920 is to execute the commands dictated by the program 
memory. 

The Analog Section performs A/D and D/A functions upon 


command from the program memory. In order to implement 


is 


these functions the analog section includes the following 


subsections: 


a four input multiplexer 

an ee sample-and-hold circuit 
a D/A converter 

a comparator 


an output multiplexer with eight output sample-and-hold 
and buffer amplifiers. 


a special digital-to-analog (DAR) register which acts 
as an interface between the digital and analog 
sections. 


THE SDK-2920 DEVELOPMENT SYSTEM 


The SDK-2920 Development System is an integral component 


in the development of any applications package which uses at 


its core the INTEL 2920 Analog Signal Processor [Ref. 10]. 


Within the scope of the system are many development 


capabilities including 


Breadboarding: The breadboard is used to develop 
circuits for evaluation or prototype applications. 


Assembling and Editing: This feature is comprised of 
an assembler, disassembler, hexadecimal display, 
symbolic 2920 instruction display, and single 
keystroke entry of many 2920 instruction fields. 


2920 EPROM Programming: The development board includes 
hardware and control elements necessary to program the 
2920. 


Communications: The development also interfaces with 
Intel Developments Systems (such as the Intellec 
Series) to pass object and source code listings of 2920 
programs. 


T6 


Applications software was developed using an Intellec 
Microcomputer Development System running a 2920 Assembly 
Program and Software Simulator. Transfer of 2920 software 
between the development system and the SDK-2920 is easily 
accomplished. 

The SDK-2920 is physically divided into a development 
Side and an алй ШЕЕ Side. The development side can be 
used to load, test and modify EPROM resident programs under 
8085A microprocessor control. System control is 
accomplished with the use of a keypad monitor. The 
composition and hierarchy of the monitor command structure 
is shown in Figure 5.2 on the following page. 

The applications side includes a prototype area for 
circuit construction and testing. It functions 
independently of the development side. After program 
development has taken place two methods may be used to 
accomplish program verification. The first method uses the 
Intel SM2920 Simulator Software to simulate the execution of 
programs written for the 2920. This simulator allows the 
use of symbolic references for changing and displaying all 
2920 registers, flags and user-defined locations in program 
and memory storage. A trace feature also allows monitoring 
of selected parameters as they are changed under program 
control. 

The second method of 2920 program verification is done 


by monitoring circuit performance on the applications side 
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Figure 5.2 SDK-2920 Monitor Command Structure 


of the SDK-2920 by examination of inputs and outputs. The 
applications board is shown in Figure 5.3 on the page 
following. Provisions are made on the board for assembly of 
either internal or external clocks, four input and four 
output channels with associated waveshaping circuitry, 
reference voltage development, and two user breadboard areas 
for specific applications development. Furthermore, TTL 
compatible output signals can be delivered to the output 
vice analog outputs if desired. We shall make use of this 
feature to send a signal detection pulse when the APU 


ignition is detected. 
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D. A 2920 DIGITAL FILTER IMPLEMENTATION 

Here we shall describe the particular 2920 software and 
hardware components which comprise the digital filter. 

1. 2920 Assembly Language Program 

In Appendix H we find the 2920 assembly language 
program which implements the two stage difference equation 
developed in Chapter 4. Recognizing the characteristics of 
the 2920 processor, it is instructive to review the 
programming devices which are brought to bear to realize 
this filter. We will proceed in the order in which these 
devices are used in the program. Appendix H should be 
consulted as reference for the discussion which follows. A 
detailed discussion of the 2920 Assembly Language should be 
consulted for particulars concerning the language [Ref. 11]. 

After initializing the DAR register we accept the 
input analog sample from the sensor microphone/preamplifier 
ensuring that the level does not exceed 1.0 volts. This 
limit is established by the voltage reference circuitry at 
pin £8 of the 2920. The input analog value is stored in the 
Sample/Hold register. 

We then begin a sequence of steps, according to 2920 
protocol, which accomplish the analog to digital 
transformation of the input value in the Sample/Hold 
register. This procedure is completed at program step 43 
and the resulting digital value is then found in the DAR 


register. 
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Although we have ensured an input less than one volt 
this is not sufficient to guarantee that the post-processing 
value will not exceed the internal arithmetic limit. 
Internal arithmetic is limited to a range of values which 
cannot exceed -1.00000000 to +0.99999999. These 8 decimal 
place accuracies are established by the internal 25 binary 
bits (1 sign bit and 24 magnitude bits) available for 
arithmetic computations EA the 2920. Actually the range 
of multiplicative inputs is only good to within 4 decimal 
places due to the scaling problem. But this will be seen to 
be more than adequate for our purposes. 

To ensure that the processed values do not exceed 
one volt we scale down the digitally sampled input value by 
64 by way of program step 44. The difference equation 
manipulations of the input value are then accomplished in 
program steps 47 through 130. 

Digital arithmetic is performed in the 2920 by means 
of binary shifting and adding which is predicated on a 
transformation of coefficients to a nearest binary 
equivalent. The FORTRAN program and its output which 
performs this transformation is labelled CTRANS2 and is 
shown in Appendix I. Although a binary transformation does 
involve some approximation error, we see in the appendix 
that the worst case approximation of coefficients is still 
within .02 percent of the actual value. This is a 


relatively insignificant error. 


81 


After the difference equation implementation in each 
program pass we are left with a binary value in the DAR 
register which corresponds to the program output for that 
pass. We have the option of providing a certain amount of 
linear output gain by an appropriate shift of the output 
binary value now in the DAR. In program step 132 we provide 
a gain of four by a left shift of two binary positions. We 
output this value to am O in steps 139 through 142. 

| The final program manipulation occurs in program 
steps 143 to 150. Here we perform a serial register shift 
of present program pass values in preparation for the next 
program pass. Program step 191 is the final executable 
statement which returns us to step 0 for the next pass. The 
entirety of the 2920 operation consists of an endless loop 
of these instructions. 

2. 2920 Hardware Implementation 

The 2920 contains an EPROM which is loaded with the 
hexadecimal code which is equivalent to the assembly 
language program just described. However, there are several 
other component devices which are integral to the operation 
of the 2920. The relation of these devices to the 2920 will 
now be described. A graphical schematic of these components 
appears in Figure 5.4. 

At the input side of the 2920 an anti-aliasing 
filter is realized by using a 2912A which actually contains 


two filters which are cascaded together. This configuration 
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Figure 5.4 2920 Digital Filter Schematic 


provides 54 dB of input dynamic range and a nearly flat 
response for frequencies less than 3 kHz. There a steep 
roll-off commences and at about 4 kHz the cascaded filter 
combination provides over 30 dB of attenuation. This 
supports the Nyquist frequency limit which is 4.34 kHz in 
this application. 

The 2912A is a pulse code modulated filter which 
requires a clocking input to realize its filter function. 
This is provided by the 74624 at its input. 

At the output of the 2920 another 2912A is employed 
in identical configuration and now provides a reconstruction 


Filter for our application. This filter smooths the output 


B3 


of the 2920 to provide an analog signal. for follow-on logic 
discrimination as shown earlier in Chapter 3. 

A 2920 option which is not demonstrated here yet 
will be employed in final filter configuration is to obviate 
the need for external signal conditioning by allowing 
program discrimination of the output value and thus 
providing a processed TTL signal output. This eliminates 
the need for the external cima has. shown in Figure 3.8 and 
thera е represents one significant advantage of the 2920 


digital design over the analog implementation. 


E. 2920 DIGITAL FILTER IMPLEMENTATION RESULTS 

We will now proceed to demonstrate the results of the 
2920 digital filter implementation in much the same manner 
as the presentation which accompanied the analog filter 
design in Chapter 3. We begin with a photograph of the 
digital filter frequency response to a ramped sinusoidal 
input. This is shown in Figure 5.5. The same method was 
used to generate the sweep oscillation although the range of 
sweep is not identical to that employed in generating 
Figure 3.9. The result is that we cannot guarantee the 
narrow bandwidth of this digital filter relative to its 
analog counterpart by this means alone. The intent is, as 
before, only to demonstrate that a narrow band-pass filter 


response is generated. 
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To confirm the operation at the desired band-pass center 
frequency we next apply discrete sinusoidal inputs to the 
digital filter at various trequencies arraved about 600 Hz. 
The result is the digital analog to Figure 3.10 which is 
shown here as Figure 5.06. The scale is maintained as in 
Figure 3.10. The input frequencies are at about double the 
amplitude of the analog filter to ensure proper operation. 
This implies that despite the relative immunity of the 
digital filter to input amplitude variations we πε 
nontheless provide an input above approximately 100 


millivolts peak-to-peak. However, once above this threshold 
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value the digital filter provided a relatively undistorted 
and largely constant amplitude output up to an input 
amplitude of over 5 volts peak-to-peak (and this despite the 
1 volt reference level of the input). Figure 5.6 thus 
confirms the center frequency maximum at a value near 600 Hz 


and a steep roll-off on either side of this value. 


= 


V Is, ALTERNATIVE FILTER CONCEPTS 


The preceding development was based upon techniques used 
in implementing an Infinite Impulse Response (IIR) digital 
filter. Simply stated, an IIR filter realizes its output 
based upon the values of all present and previous inputs and 
outputs. In other words, feedback is employed in an IIR 
design. 

In the general case, an IIR filter will have M finite 
zeroes and N finite poles. The zeroes of H(z) can be 
anywhere in the z-plane but the poles must lie within the 
unit circle to guarantee stability. In the case we have 
developed, a digital filter realization derived from an 
analog design, the order of M must be less than or equal to 
N. This describes an Nth order digital filter. 

The hardware implementation of an IIR design usually 
involves the cascading of elemental single pole filters with 
double complex pole filters. These elements are derived 
from the original transfer function using a partial fraction 
expansion separation scheme. 

There are other methods for realizing the filter we 
desire other than the a priori scheme we have developed so 
far. These generally use the input signal itself as a basis 


for the filter transfer function coefficients and involve an 
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adaptive evaluation of the proper coefficients which yield 


the desired filter response. 


A. A WIENER FILTER DESIGN--THE ADAPTIVE LINEAR COMBINER 
The Adaptive Linear Combiner (ALC), shown in Figure 6.1, 
forms the basis for the Adaptive Filter design we shall now 
discuss [Ref. 12]. An input analog signal may be digitally 
sampled in accordance with the Nyquist criterion and we may 


then apply N sequential elements of that sample block to 
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Figure 6.1 The Adaptive Linear Combiner 


the ALC inputs. These inputs can be easily derived from a 
tapped delay line which cascades sample values along in 
sequential storage for processing. This scheme lends itself 
well to implementation in a processor such as the 2920 which 
is designed to accept sequential values by way of its 


component A/D converter and RAM storage. 
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The set of measurements η) is multiplied by a 
corresponding weighting term Wi, and the results then 
summed to yield the output y;. This output is then 
compared to a desired signal value for that instant and the 
difference between them constitutes an error signal €;. 

The objective of the ALC is to determine Νι 5ο as to 
minimize e; for each set of sampled inputs and thus 
realize the weighted sum ee input signals that best matches 
Spa desired response. 
1. Theoretical Foundations 
At the nth instant of time the output of the 


Non-Recursive Wiener ALC, y(n), is given by [Ref. 13]: 


imz 
O 


ы. x(n-j)Wi 


- W,x(n) + W,x(n-1) + .. + Wux(n-N) 


which may be written in matrix form as 


T 


= WX 


or equivalently 


T 


= XW 


where T represents the matrix transpose operator, the set of 


N+1 weights is denoted by 
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we = [W, W, ... ÑW 


N] 


and the set of present and N previous inputs is given by 


X° = [x(n) x(n-1) ... x(n-N)] 


The error signal e(n) for time n is given by 


e(n) 7. d(n) - y(n) 


T 


(p W x 


and the square of the error (using the latter matrix 


notation) by 


e?(n) = е(п) » eT (n) 


ju 


[a(n) -WIxj[a(n) - xTwi 


ы 


d*(n) -2d(n)xTw « wTxxT 


= 


The mean square error, obtained by taking the 


expected value of this last equation, is given by [Ref. 13] 
2 = 2 T Т T 
Bene he7 E[d? (m)] -25bha (n) X" ] Week eX” JN 


Defining the vector Фуа ав the cross-correlation 


between d(n) and X then yields 
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Фха 


Ern) 


E[d(n)x(n),d(n)x(n-1),...,d(n)x(n-N)]*? 
The input auto-correlation matrix %,, is defined as 
Фух = E[xxl] 


which may be written in expanded notation as 


(x(n) x(n-1) ... x(n-N)] 


| еи 


4. 
- í 5 5 


L x(n-N) ] 


Now if we carry out the indicated vector 


multiplication we arrive at the following result [Ref. 13] 


[x(n)x(n) x(n)x(n-1) 


ق 


x(n-1)x(n) x(n-i)x(n-1) 


x(n-1)x(n-i) 


And thus we arrive at the following form of the 


input correlation matrix 


2 


фхх(0) Фхх(-1) 9 xx(- N) 
Фхх(1) Фхх(0) 9 xx( 1-N) 
9xx(N-1)9xx(-N) Dente?) 

| Фхх(М) Фхх(М-1) 9 xx(O) ] 


In order to find the optimal weight vector, 
+ | 
W , we can differentiate the mean square error 


function with respect to the weight vector W to yield 


d(e?(n E 
“ -2ГФха - 9xxW] 


The optimal weight vector , Μ΄, generally 
called the Wiener weight vector, is obtained by setting the 


quantity in brackets equal to zero. This results in 


The objective of processes involving the ALC is to 
find a solution to this equation. In fact we may employ an 
adaptive algorithm which uses the error signal, e(n), 


(generated for each instance of filter inputs), as the basis 
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for modifying the filter weights until a minimum error is 
attained for a particular input block. This describes the 


Adaptive Transversal Filter shown in Figure 6.2 [Ref. 12]. 
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Figure 6.2 The Adaptive Transversal Filter 


The Adaptive Transversal Filter (ATF) is a Finite 
Impulse Response (FIR) filter owing to the lack of direct 
feedback from output to input. If we employ a tapped delay 
line at the input to the ALC which comprises the ATF the 
form of the input vector becomes a finite number of delayed 
elements of the input signal. It is therefore easy to see 
that the impulse response of the ATF is just the sequence 
corresponding to the elements of the weight vector, W. 
Such a filter can have any impulse response of length less 
than or equal to its own length. Allowing for an ideal 


unlimited length we could realize any impulse response at 
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all, and thus any frequency response. Practically, however, 
— limited by тай Тег complexity, error due to 
misadjustment, and an adaptive time constant which 
corresponds to filter length. 

Thus we have a means of generating the desired 
filter response by applying the very signal we wish to 
detect. If we apply a digital series of samples taken from 
an analog reference πο ον can realize the filter weights 
Bot Will provide our desired signal output stream at a 
later time. 

Thus the idea is to sample the analog recording of 
the APU noise in the cargo bay prior to launch and to apply 
that input series of data elements to an ATF to realize the 
filter weights. We may then build a 2920 circuit which uses 
these weights as filter coefficients to provide our filter 
response. 

2. A Software Simulation 

As an example of this methodology we will now 
present an elementary simulation which was performed for an 
input which consisted of an equal amplitude application of 
the three fundamental frequencies of interest: 600 Hz, 1200 
Hz and 1800 Hz. We chose to simulate an Adaptive 
Transversal Filter of fourth ET which therefore consists 
of four weights. 

One example of a software implementation which is 


designed to arrive at the four desired filter weights is 
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shown in Appendix J as FORTRAN program FIR4. In this 
program we begin with trial weights and a range of upper and 
— ή. By repeated application of a library 
coefficient optimization routine (BOXPLX--also included in 
the appendix) we arrive at a set of four optimal weights 
within the bounds specified. 

The result of this simulation is revealed through 
application of the FORTRAN program FIRASIM which is included 
as Appendix K to this thesis. This result is shown in 


Figure 6.3. The input analog signal (indicated by the solid 


line) is a portion of the combined signal corresponding to 
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Figure 6.3 An Adaptive Transversal Filter Simulation 
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Γκ — БЕН '' РАИ ЦРНЕ анна 


the three fundamental frequencies mentioned previously. Тһе 
desired output (shown by the dashed line) is chosen to be a 
continuous -1 unless the signal of interest is detected. In 
that case the desired output jumps to +1. 

As indicated in Figure 6.2 the Adaptive Algorithm 
samples the input signal and uses the successive present and 
three previous samples to arrive at the desired filter 
weights which will МБС SH the task of signal 
ШЕ amination. In the algorithm implemented by FIR4 of 


Appendix J we arrived at the following filter weights. 


Мі - -7.5060358 
w, = 1.5403662 
W, = 4.7097464 
W4 = -5,3987589 


In Figure 6.3 we see that over 100 sample output 
iterations these weights resulted in an output which was at 
or near zero or below with a significant rise above 0.5 near 
the desired region. This approximates the filter response 
which would allow a useful discrimination of the desired 
signal by detection above a threshold floor (say 0.5 in 
this example). 

This is by no means intended to be an exhaustive 
discussion of this approach to a matched filter design, but 
merely a consideration of an alternative approach which 


might be taken to realize a useful filter. 
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B. AN ANALOG SPEECH PROCESSING SCHEME 

A further alternative which-may be considered involves 
the use of commercially available speech processing 
microcircuits which often use Linear Predictive Coding 
schemes as the basis for their discriminant filters. 

The current state of the art in speech recognition 
technology does not permit even the most sophisticated (and 
large) devices to recognize but several hundred words of 
vocabulary. The breakthroughs are most often in the arena 
of overcoming the speaker dependent nature of the simpler 
systems. However, all systems, be they single chip 
processors or multi-cabinet devices, do have the capability 
to analyze an audio input signal (conventionally this is 
speech of course) and to characterize the nature of changes 
in the formant composition over time. 

Because the signal we wish to identify is in the audio 
spectrum it seems a logical idea to consider that a speech 
recognition device may prove usable for our purposes. Іп 
fact, Interstate Electronics Corporation now markets a 
single chip voice recognition device (VRCOO8) which is 
capable of reliable and independent recognition of up to 
eight words or phrases which are stored in its vocabulary. 
While this may seem a minimal vocabulary it is a remarkable 
ability for a single chip device. 

The Interstate VRCOO8 is capable of being trained to 


recognize words or phrases of up to 1.2 seconds duration. 
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To implement an audio signal recognition scheme would 
require that we somehow "sample" our input audio environment 
in discrete blocks of about one second apiece. Thus we 
would simulate a discrete utterance which could be processed 
by the circuit. In the absence of the characteristic APU 
Signal the device would register no recognition of the input 
sample. But after APU ignition it is reasonable to assume 
that the device would treat the APU signal as a recognizable 
"word" it had previously been taught. 

While this approach may seem at first to be a promising 
one we must also consider the drawbacks, especially in view 
of the technically simpler approaches we have reviewed so 
far. First is the cost. Although the Interstate chip is by 
itself a relatively inexpensive device (on the order of ten 
dollars in quantity), by itself it is also useless without a 
twenty-five thousand dollar training and development tool. 
The intent of the manufacturer is that the cost of the 
development tool will be amortized by the consumer over a 
sizable run of usable end devices. Our application does not 
lend itself to mass production and the cost therefore 
becomes prohibitive. This is раар true in view of the 
cost of the simpler technologies discussed in previous 
chapters which have given us useful designs. 

Another drawback of a speech recognition approach is the 
level of technical complexity versus guarantee of successful 


results. Unless we use a device of modular circuit size or 
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smaller we risk an excess of power and space consumption. 
But the state of the art in speech recognition is such that 
accuracy of recognition is roughly related to the size of 
the device (although it is directly the vocabulary size 
which is the truly overwhelming factor here). The 
Interstate VRCOO8 claims only an 85 percent accuracy of 
recognition which is low by the standards of ο ον speech 
recognition devices. This is the price one pays for small 
size. 

The important point is that our signal of interest is 
characterized by extremely well-defined and stationary 
spectral components. This fact allows the use of cheaper 
and more traditional methods of signal processing and filter 
design. Were our signal of a rapidly time varying nature 
then a purely analog approach would be impossible, and even 
a digital approach would prove difficult if not infeasible. 
It is then that methods of linear predictive coding which 
form the basis of speech recognition would become one of a 


very few viable alternatives. 
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VII. CONCLUSION 


In this thesis I have considered several approaches to 
the problem of designing a matched filter for the detection 
of the acoustic signal which characterizes the Shuttle 
Auxiliary Power Unit. The Analog and Digital IIR filter 
approaches were treated in some detail, while the Weiner FIR 
and Voice Recognition methods were given less attention. My 
purpose was not to present an exhaustive treatise on the 
subject of filter design, but rather to describe various 
ways in which a particular problem might be approached. 

It is not coincidental that the order of presentation of 
the considered methods should conform to the chronological 
introduction of these sciences to the engineering community. 
As may be expected, the facility with which each of these 
methods is employed is proportional to their general 
familiarity among engineers. The analog approach considered 
first is the best established method of filter design. Not 
surprisingly, this method is supported by a wealth of 
literature. Despite this ample documentation, at best the 
analog approach to filter design is an inexact science which 
is largely dependent upon the degree to which one is able to 
characterize the signals we wish to manipulate. Often, 
however, we have excellent knowledge of these signals, and 


thus the analog approach to filter design remains a 
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completely reasonable and certainly cost effective approach 
to simple filter designs. 

The APU signal of concern to this study was such a 
signal. Its signature was stationary over time and could be 
reliably found at amplitudes well above the noise threshold. 
The dominant component at 600 Hz was of quality sufficient 
to preclude examination of sub-dominant du oan harmonics 
at higher frequencies. The fact that a well-defined signal 
was evident allowed for a design which emphasized the 
simplicity of the analog approach. 

Mention should be made of the obstacles which did impede 
the final analog design. Because an analog filter serves 
only to attenuate those signal component spectral elements 
out of the passband, but does not eliminate them, it is 
necessary to know the range of amplitude which may be 
expected of the sensor microphone output. For a given 
amplitude of signal input which varies little within the 
range of input frequencies it may be reliably expected that 
the analog bandpass filter would reject the frequency 
components outside of the narrow passband. But if the 
spectral components were grossly disparate in their 
amplitude and a component out of the passband were received 
which was significantly above the amplitude expected of the 
600 Hz center frequency, then it is possible that the 


component out of the passband would be passed regardless of 
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the filter attenuation. This demonstrates the need we have 
to know the nature of the input signal. 

One approach We this arooda is to increase the 
attenuation of the filter. But this does not guarantee 
signal component rejection out of the passband. The 
solution for an analog approach lies in Automatic Gain 
Control (AGC) at the sensor microphone input to the filter. 
In this manner we can ensure a dynamic range of input signal 
which is within the limits of filter discrimination. This 
implies a careful selection of a microphone and preamplifier 
combination which in turn implies a similarly careful 
understanding of the dynamic range of the input signal. 
Indeed, these considerations continue to be the most vexing 
aspects of a useful final design. The actual dynamic range 
of the signals recorded on tape was unreliable due to the 
number of intermediate and indeterminate dubs which the tape 
underwent prior to our acquisition of a copy. 

Furthermore, and even more importantly, the ultimate 
placement of the sensor microphone in the Shuttle cargo bay 
will have considerable effect upon the nature of the signal 
available for discrimination. It will also tell 
Significantly on the dynamic range. This factor will impact 
upon any chosen filter design regardless of the algorithm 
selected. Thus in the analog case we must design for a wide 
dynamic range and provide AGC which yields a narrower range 


of amplitude input into the filter. 
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Much of this problem is overcome with the digital filter 
implementation developed in Chapters 4 and 5. At the 
— of HEEE a design is a frequency domain 
scheme whose output is less dependent upon input amplitude 
variations than the frequency components of the input 
Signal. In fact using an EPROM based filter design such as 
afforded by the INTEL 2920 we enjoy considerable flexibility 
in tailoring the range of allowable inputs and outputs 
through careful selection of program parameters. The 
limitations are rather imposed by the noise level at the low 
end and the power limit at the high end. 

There are several drawbacks to the digital filter which 
bear mentioning. The foremost drawback is cost relative to 
the analog filter. The design presented in Chapter 5 was 
dependent upon the SDK-2920 Development Kit which is a 
thousand dollar item. This is the minimum hardware which is 
necessary to develop a 2920 signal processing design. 
However, to support any sort of a sophisticated development 
requires the INTEL Intellec Development System with 
associated software. This quickly elevates the expense of 
the system to a range of tens of thousands. Of course there 
are certainly more uses for the Intellec system than simply 
a 2920 development application, so this expense can be 
amortized over those additional uses. But the 2920 
applications software which supports the Intellec system is 


a four thousand dollar expense by itself. 
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This fact proved significant to the digital design when 
the simulator software was found to have a bug in it. When 
the original disks could not be located it was then deemed 
more practical to develop an application specific simulation 
on a mainframe computer instead of purchasing a replacement 
package from INTEL. This meant an additional expenditure of 
time of course, and was only successful in showing the 
adequacy of the specific 2920 filter implementation 
algorithm. However, without the 2920 Simulator software 
package effective troubleshooting was made Significantly 
more difficult. Nontheless, as indicated in the results of 
Chapter 5, a successful 2920 implementation was accompiished 
without a fully healthy simulator. With it the design 
process would have been considerably more efficient. 

An additional consideration is the complexity of the 
digital design over the analog approach. This is due in 
large part to the availability of resources which support an 
analog design relative to the novel approach represented by 
a state-of-the-art signal processing chip. However, the 
complexity of a signal processor application is often far 
outweighed by the considerable flexibility which it 
provides. One must not forget the power of the 2920 
(witness its ability to incorporate all of the hardware 
elements of the follow-on logic circuitry required in the 
analog design in but a dozen or so lines of 2920 assembly 


language code) and weigh this against the short term 
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inconvenience of having to become acquainted with a new 
approach. Once mastered the significant ability of a signal 
processing device make an analog approach to any complex 
filter design seem archaic. In addition the fewer actual 
circuit components required in an EPROM based device means 
Significant savings in power consumption. This is an 
especially noteworthy item when considering an electronic 
device for a space application. 

For the purposes of this thesis I must admit that the 
2920 was certainly fun to work with. The literature is 
sketchy in spots and several calls to technical support at 
INTEL were needed to resolve some issues and errors. But 
overall the 2920 certainly provides the researcher with a 
Significant amount of flexible and powerful signal 
processing ability. 

The significant advantage of implementing .a digital 
filter over the analog design is the relative immunity to 
the variations in input amplitude. This was a crucial 
consideration in the development described in Chapter 5 and 
by itself would account for the choice of the digital design 
over the analog approach. When coupled with the further 
advantages of lower power consumption, less physical space 
required and considerable flexibility in accommodating 
future changes without the need for hardware modification, 
the digital approach implemented in a powerful signal 


processor becomes an irresistable filter design option. 
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In Chapter 6 we considered two other approaches to the 
APU signal detection problem. Unfortunately a lack of time 
prohibited a serious examination of these additional 
approaches. Both are well-founded and represent the leading 
edge of signal processing technology. Given a requirement 
for detection of a more complex signal than we ΕΗ in 
this paper, these latter methodological options could well 
represent the only viable means of processing a time-varying 


signal in the acoustic spectrum. 
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RUN IOENTIFICATION _APU HOTFIRE CHANNEL 11 STS-2 


PARAMETER 00280А TEST DATE 15 September 81 

OVERALL RMS VALUE 6.4863 G's ANALYSIS B W 2.2467 Hz 
ENGINEERING UNITS _30,0000 G's ANALOG L.P FILTER B w 2300.0000 Hz 
START TIME: (HR: MIN: SEC)258/11:56:35 DEGREES OF FREEDOM | 9.0000 2 
SAMPLE RATE (S/SEC). | 6134. 9687 PROCESS DATE 18 September 81 


VERTICAL SCALE FACTOR: TRUE VALUE = VALUE X 10 TO THE POWER OF -l. 
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RUN IDENTIFICATION АР HOTFIRE CHANNEL 11 STS-2 


PARAMETER 00280A TEST DATE 15 September 81 

OVERALL RMS VALUE 3.1781 G's. ANALYSIS 8 w , 2.2467 Hz 

ENGINEERING UNITS _30,0000 G's ANALOG L.P FILTER 8W 5. -2300.0000 Н2 
ЅТАЯТ ТІМЕ; (НЯ: МІМ: ЅЕС) 258/11:57;46 DEGREES OF FREEDOM 2,0000 ——  — 

SAMPLE RATE (S/SEC) 56124,9687. PROCESS DATE 18 жа 81 


VERTICAL SCALE FACTOR: TRUE VALUE = VALUE X 10 TO THE POWER OF _-2_ 
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RUN IDENTIFICATION APU HOTFIRE CHANNEL 11 575-2 


PARAMETER D0280A ` TEST DATE ` 15 September 81 

OVERALL RMS VALUE_3-6335 G's = ANALYSIS) 8 W__2-2467 Hz 

ENGINEERING UNITS __30.0000 G's ANALOG L.P. FILTER 8 W_2300.0000 Hz 
START TIME: (HR: MIN: SEC)298/11:58:]4 DEGREES OF FREECOM __2,0000 _ 
SAMPLE RATE (S/SEC)__ 6134. 9687 PROCESS DATE _ 18 September 81 





VERTICAL SCALE FACTOR: TRUE VALUE = VALUE X 10 TO THE POWER ОҒ -2 
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RUN IDENTIFICATION APU HOTFIRE CHANNEL 11 575-2 


PARAMETER 00280А ` TEST DATE 15 September 81 
OVERALL RMS VALUE 2,9619 G's ANALYSIS 8 W__2.2467 Hz 

ENGINEERING UNITS 30.0000 G's ANALOG L.P FILTER B w 2300.0000 Hz 
START TIME: (HR: MIN: SEC) 258/12:01:22 DEGREES OF FREEDOM 9.0000 
SAMPLE RATE (S/SEC)___6134.9687 PROCESS OATE, 18 September 81 




















VERTICAL SCALE FACTOR: TRUE VALUE * VALUE X tO TO THE POWER OF - -2 
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RUN IDENTIFICATION APU HOTFIRE CHANNEL 11 575-2 


PARAMETER. ,. 00004 7 TEST DATE lS September 81 .— 
OVERALL RMS VALUE 2./269 G's ANALYSIS) 8B W___2,2467_Hz_ 

ENGINEERING UNITS . 30.0000 G's ANALOG L.P. FILTER 8 W2300.0000 Hz 
START TIME: (HR: MIN: SEC}_258/12:03:20 DEGREES OF FREEDOM IANA 


SAMPLE RATE (S/SEC)___6134. 9687 PROCESS DATE 18 September 3] 
VERTICAL SCALE FACTOR: TRUE VALUE* VALUE X 10 TO THE POWER OF -3 
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RUN IDENTIFICATION APU HOTFIRE CHANNEL 11 575-2 





PARAMETER 00280А Noise Floor TEST DATE. 15 September 81 
OVERALL RMS VALUE 0.1920 G's ANALYSIS 8 Ww. 2.2467 Hz 

ENGINEERING UNITS 30.0000 Gs ANALOG L.P FILTER B Ww 2300.0000 Hz 
START TIME: (HR: MIN: SEC)258/12:04:20__ DEGREES OF FREEDOM __9.0000 
SAMPLE RATE (S/SEC)___ 6134. 9687 PROCESS DATE, 18 September 81 

















VERTICAL SCALE FACTOR: TRUE VALUE * VALUE X 1ο- το ΤΗΕ POWER: O -5 
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RUN IDENTIFICATION APU HOTFIRE CHANNEL 10 575-2 


PARAMETER 00281A TEST DATE 15 September 81 
OVERALL RMS VALUE 1738 G's ANALYSIS) B W 2.246} ΗΖ 
ENGINEERING UNITS 30,0000 G's ANALOG L.P FILTER 8 w 2300.0000 Hz 


START TIME: (HR: MIN: SEC) 25B/11:57:46 DEGREES OF FREEDOM __3,0000 
SAMPLE RATE (S/SEC)__ 6134. 9687 PROCESS DATE 8 September 81 


VERTICAL SCALE FACTOR: TRUE VALUE» VALUE X 10 το ΤΗΕ POWER ОҒ -2 


w n ΝΣ pw ur nr cnrnrrnnƏ 
LT a ae. i iun lal | Miren ts a D 2-3 aa 
ж ү ыа “κενο Τπ πα en oe πα ο ο Φρικ жа кш κ η πε ο тини ү ы ин... 
КЛ еН ГЕ Ен ЕНЕ FT НН tin 
de ee pepe р meee em رج‎ ne a mp tine ee 
LLL озова шиа н - Ей йй ш СА. ts MERE Meee eee BE Ty guy 
ИШЕН ОТ t ao =a ΠΠ ЕЕ πε. CEE 3 8 391 (1G 1 EEE Bg E: 
Rett БЕТЕ EELINLUREEE ο ο ае Еа 
k J; ت‎ 


























r-r L I DE) EE анан ER ee ИДЫ --- Це жср чке атт е] [mn vy op apa c 8 L.l 
i ceee e eE EET == LEL te -—— 
А n ЕГІ [Ж жува выше с о ш LI. ЕВЕ Ed TL LLLI 
Ee ОНЕ ott + ШШЕН 
— ута Ф [mM Е тан 


ptt 8996. — --' Ἡ Pied dr dmn rn ТІ 














a απ heii ай атф Қ Ке кесе д ЭКОЛ кт I —[ s ——— MM! ——À—À eee ot 
—— r-r -< xp J qHF—r— =t-—MKF-EFY—. r - 
І-ІІ ГІ an (teen tetas ae Speier y i rip? u p Dp pipi el te fee’ ee tone yt tt ie ΕΕ TIF гер с 
кое ү, υπο ο ο τι ED т ллы л Sl dep nee sme guc Ú s s mam Үл I IE! i Tig ΤΙ 1] 
Ps T esas asa] келес сте. ae а abel аар e اسا‎ аа — — s Ιω συ το. CI E EE ]--] 
Ж ы сал. жүл же. Ізі е. 7 әкесі = гетер 231-2029 Ee IA ااج س‎ ie i C اس‎ ae سے سو‎ 
ЕТШШ E „== == ШЕК тс Шок гс 30 مم پاي‎ гич = о Е.А пша a 
MHEG Fa L el ae ісі ΠΗ] же ккк Ше жшше E Т DIET LU Ie [ea Ptr ppt ІІІ ΠΠ ΠΗΓΗ 

imn tte НА нш Єй ШШ ПН ЧЕГЕТ tie [μ.ο Ες ος I TPP LIL OLD] ΕΞ 

LEL ECL g ες ἃα τπη ΒΕΠ ΕΦΕΕ ΜΙΕΙΩΙΕΙΕ te tet ft ee oleh ea re et we ГЕ) الراب‎ αμα Gees TOO 








ο аана на eben hal 





a oe eae тс ЫЛ е ЕКСА 


— ee ا سمللا ا‎ ee pam rapa ayaa T СЕТ) ¿kW | 

ГИ Кессе ЖЫГЫ ШЕСЕ сс К сше ЖЕ Ас ea ene) A ε.α ας κ. λα κο Αα ir Lips ee eT LU 

EEn ee лл eet ttt eee ett tt πα ελ ge oe 55 ا‎ CELS E аа Ағай 1 cala uL dsl ad i i ae) 

—— "νο. Жы jani ret tia i i pg ment ney ас ас отнета а И сааса С —————— T 

ы-і. EIUS OPOP PCL L ee ee 2 ee τε δε E c — ccc. δ. ο e. assise ime 

ЕТТІ ТЕРБЕТЕР EIE ичи ΤΤΤΤΤΙ "rper I ΕΟ. e] — rn 

S9OOCOOBY2 EMT. E095 007 7 cq Esa s S GEIGER] esp Gs Gs sm ma N LOSER I Ira tt tH Po ee! miiia b e agt νου Euri c ope res pee 

жаы {сахан ару акш а тете с е emule rale Doo [oT ope d eee aah ae eet ЕГ ια (Е-е са аны е ет. аны 808850 034000 IE BGS Baas 

кла а ы ανω αι msNC a es || eer. dr cuneo ak AE a seis Imc] [o pps py masus m maa ГЕНИН ШЕЕ —— 

ЕЕРЕЕ НЕНЕН spunto esposte em ma яру: Гав уратат атар азоо учар ата арата) 

| 9 -———— sen ES a 888488 θες | L I i. RL J Ll] rtt MES 
ЕЛІМЕ ПЕ 0 000620500000 820 eee Se ee ee eee ТОТИ еее ЕЕС ОТТ ee 

ΓΤ ТТТ АШИ л үү ИДЕЛ ΓΙ ШИДІ ШТ 


οκ ο με 
——— Y КН EET гет Hr enm Pp een tarde т... cass ame — JLI i= Hi pcr 
ΤΌΣΗ SSS 
ПШ ЕТЕР ЕРЕЕН ere т ΤΗ QL TREE 
К me a gy ELS SES к улту E 
— — — — ГАМА ра ας]... miu — Н НАУ Η 
j a ttt ы ——— tt ee pt ΕΕ лш [or iere m [e e emo o s [| o e te bv per са ааа 
με ee EUM ШШ ГЕ ЕЕ ЫШ LLL LEI ПШ Emma үа ШЫ ET TTT 
e a س ا‎ 


I A LU LL: i.s. а ае ал e a 
J s si 











EEE ka 
ی‎ 0 
TL ¿L T М] 
a е. М е Ыллаан akak dm олы d 





























Е 

το shale заара mri аа aol T TTS IPTV E OTS Il أا‎ w τς νὰ ος d асно весе 

жашын але Oe aU GY Yee SR) eee | eer) LLL LL Ll aa: 

gm RU = 506559: S ας ος ο ee ieee ete eo Bee m ms spa m. }.1 Hp ΓΙ 

a erm rt i لېب‎ juin ат rom esposas n [ol [o uar ce [unt ро ewe me ee ele, Bee m [o o (eo qne Near T. Logd —— ος 

Еге мера ee ee si) LEL bd ке ES NTI لبلا‎ E d n імпзенканалевоың жыр тый зан 
سام‎  —— sas mapas r1 — T 





{|| 
| 
| 
| 
| 
| 
Í 


= ч 


πλ». 


тп 
Г | 


15; 
| 
| 


qu 


L сс] Ld -------- А Азы a a есі 
Ba ——[ ا‎ {+ нн е а а | 

| [m m wi is ран лер αι... m E раны A A | ΓΙ. ΓΗ EE SILL E SELL =l 

GRE COSS EQ IEEE ES LOL SEET amam) ο ως Τα ΓΙ. πε] 1 Δ ти АНЕ ч La Ше шаа | lala Reales ie ы p tb Е pa 

ο ο ms ed ο ου. ЕТТЕН СТИ Та ЗТ Би reir nemi 


ШІ 
ШШ 
| 
ІШІ | 
ЕШ 
i 
He 
unm 
u 


Ea 
EAE = Ы 

cre pm ett ΗΕ TL ELT] E AAA ΠΗ 11 خش‎ mass = 
ЕЕЕ ШШЕН ШШЕ ТТТ ПП @@@@@0 ШИШ ДГ r ШШШ ИШИНДИ ЕТТ 
е і e نای‎ ΤΗ ΠΗΓΗ ΤΗ ΠΠΗΗ Н ТЕШИКТЕ Er 
ТТ ИТҮ ЕАТС 


10 aoo 50 100 “200 300 500 IK À ЗК SK IOK 
HERTZ 


115 


RUN IDENTIFICATION APU HOTFIRE CHANNEL 10 STS-2 


PARAMETER 00281 A TEST DATE 15 September 81 
OVERALL RMS VALUE, 3.6288 G's ANALYSIS) B W 2.2467 Hz 
ENGINEERING UNITS. 30.0000 G's ANALOG L.P FILTER 8 w 2300.0000 Hz 
START TIME: (HR: MIN: SEC) 2£8/11:58:14 DEGREES OF FREEDOM 3.00 — 
SAMPLE RATE (S/SEC)_6134,9687 PROCESS DATE 18 September 31. 81 


VERTICAL SCALE FACTOR: TRUE VALUE * VALUE X 10 TO THE POWER OF _-2 
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RUN IDENTIFICATION _APU_HOTFIRE CHANNEL 10 STS-2 





PARAMETER 00281А TEST DATE 15 September 81 
OVERALL RMS VALUE 6.4787 G's ANALYSIS 8 W__ 2.2467 nz 
ENGINEERING UNITS _30.0000 G's ANALOG L.P, FILTER 8 W 2300.0000 Hz 
START TIME: (HR: MIN: SEC) 258/11:56:35 DEGREES OF FREEDOM ___ 3.9000 
SAMPLE RATE (S/SEC)__6134.9687 PROCESS DATE, 8 September 81 

















VERTICAL SCALE FACTOR: TRUE VALUE * VALUE X 10 TO THE POWER OF -1 
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RUN IOENTIFICATION APU HOTFIRE CHANNEL 10 STS-2 


OVERALL RMS VALUE. 2.9631 G'S. ANALYSIS) 8 W__2.2467 Hz 
ENGINEERING UNITS 30,0000 G's ANALOG L.P. FILTER 8 W 2300.0000 Hz 
START TIME: (HR: MIN: SEC) _298/12:01:22 DEGREES OF FREEDOM 3.000... 
SAMPLE RATE (S/SEC)___6134.9687 PROCESS DATE__18 September 81 — 81 


VERTICAL SCALE FACTOR: TRUE VALUE + VALUE X 10 TO THE POWER OF_-2 
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RUN IDENTIFICATION ΑΡῸ ΗΟΤΕΙ͂ΒΕ CHANNEL 10 STS-2 


PARAMETER D0281A TEST DATE 15 September 81 
OVERALL RMS VALUE 27251 G's |. ANALYSIS 8W. 2,2467 Hz 

ENGINEERING UNITS . 20,0000 G's ANALOG L.P.. FILTER B w 23000000 Η7 
START TIME: (HR: MIN: SEC)_298/12:03:20 — DEGREES OF FREEDOM __9,0000 ` 
SAMPLE RATE (S/SEC)__6134.9687_ 7 PROCESS DATE 18 September 81 





VERTICAL SCALE FACTOR: TRUE VALUE s VALUE X 10 TO THE POWER OF _ -3 
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RUN IDENTIFICATION APU HOTFIRE CHANNEL 10 STS-2 


PARAMETER DO281A Noise Floor TEST DATE . 15 September 81 

OVERALL RMS VALUE 0D.1905 G'S. ANALYSIS BW 2.2467 Hz 
ENGINEERING UNITS _30.0000 G's ANALOG L.P FILTER 8 W2300.0000 Hz 
START TIME: (HR: MIN: SEC). 258/12:04:20 DEGREES OF FREEDOM _ 9.0000 2 


SAMPLE RATE (S/SEC). 6134.9687 PROCESS DATE 18 September 81 — 81 


VERTICAL SCALE FACTOR: TRUE VALUE * VALUE. X 10 ТО ТНЕ РОМЕН ος -5 
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APPENDIX B 


ο ο ο ου S ο habe Oa Nomey PLOTS OF THE SHUTTLE 
CARGO BAY PRE-LAUNCH ACOUSTIC ENVIRONMENT 


Legend for the Graphical Output on the Following Pages 


Shuttle Flight Number: .STS-2, STS-3 or STS-4 
Microphone Identification: 9405, 9219 or 9403 
Sampled Interval Relative to APU Power-Up: PRE or POST 


All PSD Sources are from the Original Aerospace Tape 
Copies (labelled ORIG) 


Narrow Band Analysis (N=40 Samples) 

Hanning Weighting 

5.0 Volt RMS Front End Limiter 

Gain: 10 dB per division 

Cursor Point Label: X (Hz) and Y(B) (Engineering Units) 


Scale: Linear Ordinate (0-2000 kHz) 
Logarithmic Abcissa (10: to 10% EU) 
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FILE: ABPDBP 


FORTRAN Atl: 


(GH HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF 4F HF 4F 4F 4F HF HF 4F 4F 3F 3F 3F 3 HF AB P000 10 


ο ο ΟΟΟΟΟΟΟΟΟΟΟΟΩΟΩΟΟΟΩΟΟΟΟΟΟΟΟΟΟΟΩΟΩΟΩΟΟΟΟΟΟΟ ae 


APPENDIX C 


FORTRAN PROGRAM ABPDBP AND PROGRAM OUTPUT 


THIS PROGRAM CALCULATES: 


1) 


2) 


3) 


4) 


ANALOG ELLIPTIC BANDPASS FILTER RESISTOR AND CAPACITOR 
VALUES (STARTING FROM TABULATED PARAMETERS CORRESPONDING 
TO THE DESIRED FILTER RESPONSE) 


ANALOG ELLIPTIC BANDPASS TRANSFER FUNCTION (IF DESIRED FOR 
DIGITAL TRANSFORMATION THEN MUST MODIFY CODE IN THIS PROGRAM 
SECTION AND SUBSTITUTE WODIG FOR WO TO REALIZE NECESSARY 
PRE-WARPING COMPENSATION) 


A) ANALOG TRANSFER FUNCTION COMPLEX ZEROS AND POLES 


DIGITAL TRANSFER FUNCTION (BY APPLICATION OF THE BILINEAR 
TRANSFORM TO THE PRE-WARPED CASE OF THE ANALOG TRANSFER 
FUNCTION, WHICH IS PROVIDED IN SECTION 2 BY USING THE 
PRE-WARPED FREQUENCY ANALOG “= WODIG (VICE WO) == IN THE 
ANALOG TRANSFER FUNCTION COMPUTATION). THE BILINEAR 


TRANSFORM 1S ACCOMPLISHED BY THE FOLLOWING SUBSTITUTION: 
aed 
SES (EVABI SI 
Z + 
WHERE T IS THE SAMPLING FREQUENCY OF THE DIGITAL SYSTEM. 


A) DIGITAL TRANSFER FUNCTION COMPLEX ZEROS AND POLES 


POLYNOMIAL COEFFICIENTS FOR FIRST AND SECOND ORDER CASCADED 
TERMS WHICH WILL BE USED TO PERFORM A 2920 ANALOG/DIGITAL 
SIGNAL PROCESSING SIMULATION 


* ABPOO020 
%“АВР00030 
“АВРО00Ч40 
* ABPOO050 
*ABPOOO060 
*ABPOOO70 
*ABPOOO80 
*ABPOOO090 
*ABPOO100 
*ABPOO110 
*ABPOO120 
*ABPOO130 
*ABPOO140 
*ABPOO150 
*ABPOO160 
*ABPOO170 
*ABPOO180 
*ABPOO190 
*ABPOO200 
“АВРОО В 
*ABPOO220 
*ABPOO230 
*ABPOO240 
*ABPOO250 
*ABPOO260 
*ABPOO270 
*ABPOO280 
*ABPOO290 
*ABPOO300 
*ABPOO310 
*ABPOO320 
*ABPOOSSU 
“АВР0О0340 
*ABPOO350 
*ABPOO360 
*ABPOO370 
*ABPOO380 
*ABPOO390 


(C HEHE HE HE HE HE HE HE HE HE HE HE HE HF HE HE HE HF HE HE HEHEHE HEHEHE HEHEHE HHH HHH HEHEHE HH HHH HHH HARB POOLLOO 
TYPE DECLARATIONS 


(CG HE HF HF HF HF HF HF 4F HF HF HF HF HF 3F 4F HF HF 3: +£ 3 HF HF HF HF HF HF HF E E H HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF 4F HF 3F 3F 3F 3F 3F E HF 3F 3F 3 33 F AB Р0О0420 
C SECTION 1 

REAL A,B,C,D, E, A1,Q, K, K1, K2, WO, PI, FO, WODIG, FODIG, T, TDIV2 
REAL C11 CGC C21 oo 

REAL R11,R12,R13, R14,R15,R16, R17 

REAL R21, R22, R23, R24,R25, R26, R27 

C SECTION E 


C 


INTEGER 


INUMI, INUM2, IDEN1, I DEN2, IANUM, LADEN 


REAL RHO, RHO1, RHO2,ALFA1,ALFA2, BETA1, BETA2, GAMMA1, GAMMA2 
REAL NUM1(3),NUM2(3),DEN1(3), DEN2(3) 

REAL ANUM(5), ADEN(5) 

C SECTION 2A 


I NTEGER 


| ERR, I PDEG 


REAL ANMINV(5),ADNINV(5) 
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ABPOOA10 


ABPOOL30 
ABPOO44O 
ABPOOA50 
ABPOO460 
АВР00470 
ABPOOAS80 
ABPOOA90 
АВР00500 
АВРО0510 
AB P00520 
ABP00530 
AB P0050 
AB P00550 


FILE: ABPDBP FORTRAN Al 
COMPLEX AZERO(4),APOLE(4) ABPOO560 
C SECTION 3 АВР0О0570 
INTEGER !ZM, IZP, IDNUM, I DDEN, I DTMP ABPOO580 
REAL TNCOEF, TDCOEF ABPOO590 
CESE Z5) ZM215992M3 (5)9ZMIN( 5), 2РАҚ5),7Р2(5)%2Р3(5);2РШ(5) ABPOO600 
REAL DNUM(5),DDEN(5),DTMP(9) ABPOO610 
UC SECTION 3A ABP00620 
REAL DNMINV(5),DDNINV(5) АВР00630 
REAL RZ(4),RP(4) ABP00610 
COMPLEX DZERO(4),DPOLE(4) ΑΒΡΟΟόΡΟ 
C SECTION 4 ABPOO660 
INTEGER 14,12 ABPOO670 
COMPLEX*16 DZ4(4),D0P4(4),0Z21(2),D0P21(2),0Z22(2), DP22( 2) ABPOO680 
COMPLEX*16 DN4(4),D0D4(4),0N21(2),0D21(2),DN22(2), DD22( 2) ABPOO690 
COMPLEX DNA45(5),DDh5(5),DN213(3),DD213(3),DN223(3),DD223(3) ΑΒΡΟΟΤΟΟ 


G HE HE HH HH HH HF HH HF HE HF HF HF HF HH HF HF HF HE HF HF HF HF HH HF HF HF HF HF HF HF HF HF HF HF HF HH HF HF HF HF 3F HF HF HF HF HF HF HF HF FF HF HF HF 3F HF FF 3 3F FF 3F 3F ¥ ¥ HF A B POO 710 


C TABULATED INPUT PARAMETERS FOR DESIRED SECOND ORDER LOWPASS АВР0О0720 
C + FILTER EQUIVALENT HAVING THE FOLLOWING CHARACTERISTICS: ABP00730 
C N-2 АВР00740 
C MAXIMUM PASSBAND RIPPLE WIDTH (PRW) = 2.0 DB ABPO0750 
C MINIMUM LOSS IN THE STOPBAND (MSL) = 30.0 DB АВР00760 
C NORMALIZED TRANSITION WIDTH = 2.2921 АВРООТТО 
C FILTER GAIN (K) = 1.0 АВР00780 
(GH HF ЗЕ HF HF HF 3 HF HF HF HF HF HF HF HF HF HF HF HF HE HH HF HF HE HF HF HF HF HF HF HF HF HF HF HF HF HF 3F HF HF HF HF HF HF HF HF HF HF 3F Ад B POO 790 
FO=600. АВР00800 
А-21.164003 ABPO0810 
B=0.787152 АВР00820 
C=0.842554 ` ΑΒΡΟΟ830 
Eiz. ABPOO84O 
P1=3.1415927 ΑΒΡΟΟ850 
Ет: АВР00860 


CH HHHHHHKKHHHHHHHHHHHHHHKHHKHHHHHHHHHHHHHHHKKKHKHHHHHHHHHHHHHHHKHKHHHHHHHEHHHEHARPOOB7O 


C DERIVED PARAMETERS ΑΒΡΟΟ880 


CHHHHHKHKHHKHHHHHHHHHHHHHHHHHHHHHHHHHHHRHHHHHHHHKHHHHHHHHRHHHHHHHHHHHHHHHAR РО0890 


РЕ I о 2 FSORTCUCOTU. *Q'**2, )* 2; -(2, *B*Q)***2.))/2. )JABPOO900 


Pro E/Q)tSORT CSS E/Q)**2. <4. )) ABPOO910 
ENSIS /(2o."Q^*t*2 mSCACSORT(A**2. t4. *A*Q**2 3) ABPOO920 
K1=SQRT(K) ABPOO930 
K2=K1 ABPOO94O 
T24.*192./6.666E*06 ABPOO950 
NDIV2-T/2. ABPOO960 
WOz2.*PI*FO АВРО0970 
WOD1G=(1./TDIV2)*ATAN(WO*TDIV2) ABPOO980 
FODIG=WODIG/(2.*PI) ABPOO990 
WRITE(4,10)A,8,C,D,E,A1, F0, WO,Q, K, K1, K2, WODIG, FODIG ABPO1000 


GH HH HH HF HF HF HH HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HE HF HF HF HF HF HF HF FH HF HF HE HF HF HF FH HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HEH HHHH HEF HF AB PO 10 10 


C *ABPO1020 
C SECTION 1 *ABPO1030 
C *ABPO10A50 
C THIS PROGRAM SECTION COMPUTES ANALOG ELLIPTIC BANDPASS FILTER *ABPO1050 
C RESISTOR AND CAPACITOR VALUES USING THE ABSOLUTE AND DERIVED *ABPO1060 
C PARAMETERS CALCULATED ABOVE: *ABPO1070 
C *ABPO1080 
C CHOOSE C11=C21=.01E-06 (APPROX)=.01 UF *ABPO1090 
C CHOOSE C12=C22=.01E-06(APPROX)=.01 UF *ABPO1100 
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FILE: ABPDBP FORTRAN Al 


G CHOOSE R17=R27=1./(WO*C1)(APPROX)=26.5 KOHMS *ABPO1110 
G USE MEASURED VALUES FOR CALCULATIONS *ABPO1120 
G *ABPO1130 
CHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHAB POT 1 40 
С11-.00996Е-06 ABPO1150 
C12=.00995E-06 ABPO1160 
C21=.01030E-06 ABPO1170 
C22=.01034E-06 ABPO1180 
К17-26.7Е%03 ABPO1190 
К27-26.7Е%03 ABPO1200 
CHHHHKHHHKHHHKHKHHHHKHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHEHABR PO 1 21 0 
Ë ELLIPTIC BANDPASS FILTER STAGE RESISTOR VALUES ABP01220 
CHHHHKKHKHKHHHKHHHKHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHABRPO 1230 
БИ |= Lae ТЕЗ МАЛЫ ABPO1250 
R12=K*R11*SQRT(C/A) ABPO 1250 
R13=1./(D*WO*C11 ) ABPO1260 
R14=(R17/K) *SQRT(A/C) ABPO1270 

. R15-(0/(K*A1*WO*C12 ) )*SQRT(A/C) ABPO1280 
R16z2C11*R13/C12 ABPO1290 
WRITE(4,20)C11,C12,R17,R11,R12,R13,R14,R15,R16 ABP01300 
R212((D*E)/(K*WO*C21) ) *SQRT(A/C) ABPO1310 
R22-(K*R21)*SQRT(C/A) ABPO1320 
R232D/(WO*C21 ) ABPO1330 
R2Uz(R27/K)*SQRT(A/C) ABPO 1340 
R25-(A1/(K*D*WO*C22 ) ) *SQRT(A/C) ABPO1350 
R26-C21*R23/C22 ABPO 1360 
WRITE(4,30)C21,C22,R27,R21,R22,R23,R2l,R25,R26 ABPO 1370 

10 FORMAT(' SECTION 1 OUTPUT',//, ABPO1380 

&' INPUT AND DERIVED PARAMETERS FOR FURTHER CALCULAT!ONS' ABPO 1390 
πα. A = κ B.=- '  F956. 7. G ES τος ips АВРО1400 

Sno 6y/,' E = 6,/,° Al = ",§9.6,/,° "TO CZ Εσυ. ABPO1410 

&, F9. СЯ ж ox aras бі. ы K = 12 F9.6,/,! κα - LOSS ABPO1520 

&! Ko ! aeo ' WO( DIG) = το δρ ως Е УРОТА) ABPO1430 

20 FORMAT ' ELLIPTIC ANALOG BPF COMPONENT VALUES' T FIRST STAGE' ABPO1440 
ОСТ Е ЕВИ /,! C12 = ,Е8 2277 БІТ- "επ. ABPO1450 

&/,' RII = ! EB. 22 Га! R12 = БЕ)! RIS = BE, ΑΒΡΟΙΗ6Ο 

&' R14 = ! E8.3,/,' RIS SS ',Ε8.5,,, RI6 ЕСИТУ) ABPO1570 

30 FORMAT(' SECOND STAGE! ,//, ! ABPO1580 

&' c21 2 '.E8.3./,' C22 ="', E8.3,/ ™ Ror = ρα. ABPO 1490 

&/,' R21 = ',E8.3,/,' R22 - Ὁ εδ, Rese] EE ABPO1500 

Әб ҚОҢ - !,Е8,.3,/,! RES = ",Е8.3,/,! δρ ЕТ ABPO1510 
CHHHHHKHHHHHHKHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHRHABR POT 520 
G *ABP01530 
G SECTION 2 *ABPO1540 
C %АВР01550 
С IN THIS PORTION OF THE PROGRAM WE COMPUTE THE ANALOG TRANSFER *ABPO1560 
G FUNCTION OF THE ELLIPTIC PAND PASS FILTER. IF THE ANALOG *ABPO1570 
G FUNCTION ALONE IS DESIRED THEN WE USE WO FOR CALCULATIONS. *ABPO1580 
G IF THE ANALOG TRANSFER FUNCTION IS DESIRED FOR DIGITAL *ABPO1590 
G TRANSFORMATION THEN WE MUST USE THE PRE-WARPED ANALOG TO WO ΝΑΒΡΟΙ6ΟΟ 
G WHICH IS WODIG. ABPO1610 
C *ABPO1620 
C HEH H HEHE HH НЕЗ HF HE HF HF HF HF HE HF HE HF HF HF HF HF HF HF HF HF HF HF HF HE HF HF HF HF HF HF HF HF HF HE HF HF HF HF HE HE HF HE HE HE HE HE HE HE HE HF HE HE HE HE HE HE HE HE FE A B PO 1 630 
RHO1=K1*SQRT(C/A) ABPO 1640 
RHO2=K2*SQRT(C/A) ABPO 1650 
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FILE: АВРОВР FORTRAN ΑἹ 


ALFA1=A1 
Mier A2=1./A1 
ВЕТА1=0/Е 
BETA2=1./(D*E) 
GAMMA 1=D*#*2, 
GAMMA2=1. /D**2. 
NUM1(1)=ALFA1*(WODIG*#*#2. ) 
NUM1(2)=0. 
NUM1(3)=1. 
DEN1(1)2GAMMA1*(WODIG**2,. ) 
DEN1(2)=BETA1*WODIG 
DEN1(3)=1. 
NUM2( 1)-ALFA2*(WODIG**2. ) 
NUM2(2)=0. 
NUM2(3)=1. 
DEN2( 1)2GAMMA2*(WODIG**2., ) 
DEN2(2)=BETA2*WODIG 
* DEN2(3)=1. 
RHO=RHO1*RHO2 
| NUM1=3 
| NUM2-3 
IDEN123 
I DEN2=3 
CALL PMPY( ANUM, LI ANUM, NUM1, INUM1, NUM2, I NUM2) 
CALL PMPY(ADEN, IADEN,DEN1, IDEN1, DEN2, I DEN2) 
WRITE(4,110)RHO 
WRITE(&4, 120)ANUM( 5), ANUM( H), ANUM( 3), ANUM( 2) , ANUM( 1) 
E? 105 Iz1,5 
ANUM( I )2ANUM( I ) *RHO 
105 CONTINUE 
WRITE(&,130)ANUM(5),ANUM(H), ANUM( 3), ANUM( 2), ANUM( 1) 
ШІ 106 121,5 
ANUM( | )=ANUM( I ) /RHO 
106 CONTINUE 
WRITE(4, 140 )ADEN(5),ADEN(4),ADEN(3),ADEN(2),ADEN( 1) 
IMSSREORMAT('1','SECTION 2 OUTPUT',//, 
&' ANALOG ELLIPTIC BANDPASS FILTER TRANSFER FUNCTION' 
&,//,' NUMERATOR COEFFICIENT = RHO = ',F9.6,/) 
120 FORMAT(' NUMERATOR POLYNOMIAL (NORMALIZED) ' 
КЮИГЕІР5,! 5 *',/,E12.5,' S**3 +! 
ENEMIES D ste +',/,£12.5,' $ E Ες ο) 
130 FORMAT(' NUMERATOR POLYNOMIAL (UN-NORMALIZED) ' 
&,/,E12.5,' S¥*4 +',/,E12.5,' S##3 +' 
ОО Е12.5,' S*##2 +',/,E12.5,' S ΠΤ ΕΙΡ 577) 
140 FORMAT(' DENOMINATOR POLYNOMIAL (NORMALIZED)' 
&,/,EF12.5,! S##l +! /,F12.5, 
EE τς εδ» 552 ғ ,/,Е12.5,” 5 "PME ///) 


АВР01660 
АВР01670 
АВР01680 
АВР01690 
АВРО1700 
АВРО1710 
АВР01720 
АВР01730 
ABPO1740 
ABPO1750 
ABPO1760 
АВР01770 
АВР01780 
АВР01790 
АВР01800 
АВР01810 
АВР01820 
АВР01830 
АВР01840 
АВР01850 
ABPO1860 
АВР01870 
АВР01880 
АВР01890 
АВРО1900 
АВРО1910 
АВРО1920 
АВРО1930 
ABPO1940 
АВР01950 
АВР01960 
АВР01970 
АВР01980 
АВРО1990 
ABP02000 
ABPO2010 
ΑΒΡΟΖΟΖΟ 
ABP02030 
ABPO2040 
АВРО2050 
ABP02060 
ΑΒΡΟΖΟΤΟ 
АВРО2080 
ABPO2090 
АВР02100 
ABPO2110 
ABPO2120 


CRHHHHH HH HH HH HH HE HH HE HE HE HE HE HE HE HF HF HE HE E E HE HH HE HE HE HE HE HE HE HE HE HE HE HE HE HE HF HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE H HF A B P021 30 


C 
C 
C 
C 
C 
С 


SECTION 2A 


CALCULATE THE COMPLEX POLES AND ZEROS OF THE ANALOG FILTER 


І РОЕС = 4 
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*ABPO21A0 
*ABPO2150 
*ABPO2160 
FABPO2ZITO 
*ABPO2180 


HE HH HE HE HH HE HE HE HE HE HE HE HE HE HE HE HF H H HE H H HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HE HF HE HE HE HE HE HE HE HE HE HE HE HE HF HF HE HE HE HE H HE H HE A B PO21 90 


ABPO2200 


FILE: ABPDBP FORTRAN А1 


DOT 1400 11,5 ABPO2210 
ANMINV( 1 )2ANUM( 6-71) ABPO2220 

ADNINV( 1 )2ADEN( 6-1) ABPO2230 

1400 CONTINUE АВР02240 
CALL ZRPOLY(ANMINV, I PDEG, AZERO, I ERR) ABPO2250 

CALL ZRPOLY(ADNINV, I PDEG, APOLE, I ERR) ABPO2260 
WRITE(4,1410) ABPO2270 
WRITE(4, 1120)AZERO( 1), AZERO(2),AZERO( 3), AZERO( 1) ABPO2280 
WRITE(À,1430)APOLE( 1), APOLE(2), APOLE( 3), APOLE(À) ABPO2290 

1410 FORMAT(///,' SECTION 2A OUTPUT! ,//, ABPO2300 
&' ANALOG FILTER COMPLEX POLES AND ZEROS',/) ABPO2310 

1420 FORMAT(' ANALOG FILTER ZEROS',/,4(1X,E12.5,2X,E12.5,/),/) ABPO2320 
1430 FORMAT(' ANALOG FILTER POLES',/,4(1X,E12.5,2X,E12.5,/),///) ABPO2330 
COC HHH HH € 4 4 HF € 4€ HF HF HF HF HF HF ЭЕ ЭЕ HF 4 HF HF HF HF 4€ 4 HE 4 HF HF 4 HF HE др PO2 3 HO 
G Р *ABPO2350 
G SECTION 3 *ABP02360 
C *ABP02370 
C ^ THE FOLLOWING STATEMENTS PERFORM THE BILINEAR TRANSFORMATION *ABPO2380 
С OF THE ANALOG BANDPASS TRANSFER FUNCTION COMPUTED ABOVE IN *ABPO2390 
C SECTION 2 *#ABPO2400 
G #ABPO2410 
GC X 3€ € 4€ M HF HE HF € HF HF HF HF 9€ € 9€ HF HF 9€ HE HF HF HF HF HF HF HF HF HF HF HF HF HF HE HF HF HF HF HF HF 9E 9€ HF HF HF HF HF HF HF HF HF HF HF HF HF 3F 3F HF 3F 3F HF HF 3F HF 3F HF HH HFF A B РО2Ц20 
12М=5 ABPO2430 

IZP=5 АВР02440 

I DNUM-5 АВРО2450 

| DDEN=5 ABPO2460 
ZM1(1)=-1. АВРО2470 

Alte ЕТЕ АВРО2480 
ZM1(3)=0. ABPO2490 
ZM1(4)=0. ABPO2500 
ЯШП(5)-0. ABPO2510 
zW2t])z1, ABPO2520 
ZM2(2)=~2. ABPO2530 

zio 3)1. ABPO2540 
ZM2(4)=0. ABPO2550 
ZM2(5)=0. ABPO2560 
7М3(1)--1. АВРО2570 
ZM3(2)23. ABPO2580 
2М3(3)--3. ABPO2590 
ZM3(4)=1. ABPO2600 
2М3(5)=0. АВРО2610 

ZMA TL ABPO2620 
ZM4(2)=-4. ABPO2630 
ZM4(3)=6. ABPO2640 
ZM4(4)=-4, ABPO2650 

ZMH (5 )=1. ABPO2660 

το UET. ABPO2670 
ZPC) ABPO2680 

ZEI =O ABPO2690 
ZP1(4)=0. ABPO2700 
ZP1(5)=0. ABP02710 
2ра(1)2т. ABPO2720 
ape) = 2. ABPO2730 
ZPO(399M. ABPO2740 

VIp2 sso ABPO2750 
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EIE: 


200 


210 


220 


230 


240 
250 


260 


ABPDBP FORTRAN Al 


ZBE(5)-0. 

ZP3(1)z1l. 

Zar 3(2)=3. 

O <. 

ZP3(4)=1. 

ZP3(5)=0.. 

ZP4(1)=1. 

ZP4(2)=4. 

ZP4U(3)=6. 

ZPU(4)=4, 

Zeu(5)=1. 

TNCOEF=ANUM(1)*( TOIV2**4. ) 
TOCOEF=ADEN(1)*(TDIV2**4, ) 
DO 200. [21,5 

DNUM( I )2ZP&A( I ) *TNCOEF 


( 
DDEN( | )=ZP4( 1 )*TOCOEF 
CONTINUE 
TNCOEF=ANUM(2)*(TDIV2**3. ) 
TDCOEF=ADEN( 2)*(TOIV2**3. ) 
DO 210 121,5 
CALL PMPY(DTMP, IDTMP,ZM1, IZM,ZP3, IZP) 
DNUM( | )=DNUM( | )+( DTMP( 1 )*TNCOEF) 
DDEN( | )=DDEN( 1! )+(OTMP( 1 )*TDCOEF) 
CONT I NUE 
TNCOEF-ANUM( 3 )*( TDI V2***2, ) 
TDCOEF-ADEN( 3)*(TDIV2**2, ) 
DO 220 121,5 
CALL PMPY(DTMP, IDTMP,ZM2, IZM, ZP2, IZP) 
DNUM( I )2DNUM( I ) -( DTMP( I ) *TNCOEF) 
DDEN( ! )2DDEN( I ) -( DTMP( I )*TDCOEF ) 
CONTINUE 
TNCOEF-ANUM( à )*( TDIV2) 
TDCOEFZADEN( à )*( TDIV2 ) 
po 239. 151,5 
CALL PMPY(DTMP, IDTMP,ZM3, IZM,ZP1, IZP) 
DNUM( | )=DNUM( | )+(DTMP( | )*TNCOEF) 
DDEN( 1 )=DDEN( | )+(DTMP( | )*TDCOEF) 
CONTINUE | 
ТМСОЕҒ-АМУМ(5) 
TDCOEF=ADEN(5) 
DO 240 121,5 
DNUM( | )=DNUM( | )+(ZM4( 1 )*TNCOEF) 
DDEN( | )=DDEN( 1 )+(ZM4( 1 )*TOCOEF) 
CONTINUE 
DO 250 1=1,5 
DNUM( | )2DNUM( ! )/DDEN( 5) 
DDEN( ! )2DDEN( ! )/DDEN(5) 
CONT I NUE 
RHO-RHO*DNUM( 5 ) 
DO 260 1-1,5 
DNUM( I )2ONUM( | )/DNUM( 5) 
CONT I NUE 
WRITE(4,310)RHO | 
WRITE(4, 320)DNUM(5), DNUM(4), ONUM( 3) ,DNUM( 2), ONUM( 1) 
DO 305 1=1,5 
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ABP02760 
ABPO2770 
ABPO2780 
ABPO2790 
ABPO2800 
ABPO2810 
ABPO2820 
ABPO2830 
ABPO2850 
ABPO2850 
ABPO2860 
ABPO2870 
ABPO2880 
ABPO2890 
ABPO2900 
ABPO2910 
ABPO2920 
ABPO2930 
ABPO2940 
ABPO2950 
ABPO2960 
ABPO2970 
ABPO2980 
ABPO2990 
AB PO 3000 
ABPO3010 
ABP03020 
ABPO3030 
ABPO 3040 
АВРО3050 
ABPO3060 
ΑΒΡΟΘΟΤΟ 
ABPO3080 
ABPO3090 
ABPO 3100 
ABPO3110 
ABPO3120 
ABPO3130 
АВРОЗ 140 
ABPO3150 
ABPO3160 
ABPO3170 
ABPO3180 
ABPOS 190 
ABPO3200 
ABPO3210 
ABPO3220 
ABPO3230 
ABPO3240 
ABPO3250 
ABPO3260 
ABPO3270 
ABPO3280 
ABPO3290 
ABPO3300 


FILE: ABPDBP FORTRAN А1 


DNUM( 1 )ZDNUM( I ) *RHO 
305 CONTINUE 


WRITE(&4,330)DNUM(5), DNUM(&4),DNUM( 3), DRUM(2), DNUM( 1) 
WRITE(4,340)DDEN(5),DDEN(4), DDEN( 3), DDEN(2), DDEN( 1) 

310 FORMAT('1', ‘SECTION 3 OUTPUT',//, 
&' EQUIVALENT DIGITAL FILTER TRANSFER FUNCTION',//, 


&' NUMERATOR COEFFICIENT = 


E257) 


320 FORMAT('! NUMERATOR (NORMALIZED) ' 


&,7/,1X,E12.5,' + ',7, 1%, 892.5,'° Ztt-1 +',/,1X%,512.5, 7*#*-2 +!' 
&/,1X,E12.5,' Z**-3 *',/,1X,E12.5,' 7%%-4! ///) 


330 FORMAT('! NUMERATOR (UN-NORMALIZED)' 


%,/,1Х,Е12.5,! * ',7/,1X; EI2.5,' z**-1 +' /,)5X EFEl2 ы 
&/,1X,E12.5,! Z*#-3 +! /,1X,E12.5,'! Z**#-u'! //) 


340 FORMAT(' DENOMINATOR' 


&%,/,1X,E12.5,' + ',/,1X,E12.5,! Z*#-1 "// ЛХ ТІРІ. ШРИ 
&/,1X,E12.5,! Z**-3 *',/,1X,E12.5,'! Z**-u' ,////) 


ABPO3310 
ABPO3320 
ABP03330 
АВРО3340 
ABPO3350 
ABPO3360 
АВРО3370 
ABPO3380 
ABPO3390 
ABPO 3400 
ABPO 3410 
ABPO 3420 
ABPO 3430 
ABPO3440 
ΑΒΡΟΘΗΡΟ 
ABPO 3460 


(GC HHH HF HE HF e HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HH FF HE HF HF HF HE HF HF HF HF HF HF HF HF HE HF HE HF E HF HF HF HF HF HF HF HF HF FF HE HF HF HF HF FF ¥ 3 3 3 ¥ FHF д В PO 34 70 


SECTION 3A 


AND THE RADIUS OF THE COMPLEX POLE AND ZERO VECTORS RELATIVE 


TO THE UNIT CIRCLE. 


C 
C 
C 
C CALCULATE THE COMPLEX POLES AND ZEROS OF THE DIGITAL FILTER 
C 
C 
C 
C 


*ABPO 3480 
*ABPO3490 
*ABPO3500 
*ABPO3510 
*ABPO3520 
*ABPO3530 
*ABPO 3540 


HHHHHHKHHKHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHAR PO 3 550 


IPDEG = 4 
DO 400 1-1,5 
DNMINV( I )=DNUM(6 =1 ) 
DDNINV( I )=DDEN(6-1) 
400 CONTINUE 


CALL ZRPOLY(DNMINV, I PDEG, DZERO, I ERR) 
CALL ZRPOLY(DDNINV, I PDEG, DPOLE, I ERR) 


DO 404 1=1, 4 
RZ( | )=SQRT( (REAL( DZERO( 
RP( | )=SQRT( (REAL( DPOLE( 
404 CONTINUE 
WRITE(4, 410) 


I )))##2.+(AIMAG(DZERO 
1)) )**2. *( AIMAG( DPOLE 


— ---- 


ο 
ολλ. 


* 
* 


2. 
2) 


) 


WRITE(H,H20)DZERO(1),RZ(1),DZERO(2),RZ(2),DZERO(3), RZ 0355 


&DZERO(4),RZ(4) 


WRITE(4,430)DPOLE(1),RP(1),DPOLE(2), RP( 2), DPOLECS ) (hear 


&DPOLE(4),RP(4) 


410 FORMAT(' SECTION 3A OUTPUT',//, 


&' DIGITAL FILTER COMPLEX POLES AND ZEROS AND RADIUS',//) 


420 FORMAT(' ZERO LOCATIONS (REAL, IMAG) AND RADIUS'!,/, 
απο ο ος E12.5, 2X E12. 5, 7) 994) 


430 FORMAT(' 


ЛНЕЛОЧОЛОХУЕТ2О р, ОХ ЕТ ДӘ, ЛУ УУ.) 


CHHHHKHKHHKHHHHHHHHHHHHHKHHHHHHHHHHHHHHHHHHHKHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHAB POC 3780 


SECTION Ц 


C 
C 
C 
C COMPUTE THE POLYNOMIAL COEFFICIENTS OF QUADRATIC FACTORS FOR 
e THE POLES AND ZEROS PREVIOUSLY DETERMINED. 

C 

C 


POLE LOCATIONS (REAL, IMAG) AND RADIUS!,/, 


ΑΒΡΟ3560 
АВРОЗ570 
АВРО3580 
ΑΒΡΟ3590 
ΑΒΡΟ3600 
ΑΒΡΟ3610 
ΑΒΡΟ3620 
ΑΒΡΟ3630 
ABPO3640 
ΑΒΡΟ3650 
ABP03660 
ABP03670 
ΑΒΡΟ3680 
ΑΒΡΟ3690 
ABPO3700 
ABPO3710 
ΑΒΡΟ3720 
АВР0О3730 
АВРО3740 
ABPO3 750 
ABPO3760 
ABPO3770 


*ABPO3790 
*ABPO3800 
*ABPO3810 
*ABPO3820 
*ABPO3830 
*ABPO 3840 


HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHAR РОЗ 850 
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FILE: ABPDBP FORTRAN Al 


|Ңң=цЦ 
PL 
DO 500 I=1,4 
DZü( 1l )ZCMPLX(REAL(DZERO( I ) ), AL MAG( DZERO( I ) ) 
DPU( I )2CMPLX( REAL( DPOLE( I ) J, AL MAG( DPOLE( I ) ) ) 
500 CONTINUE 
DO 502 1=1,2 
DZ21(1)=DZ4(1) 
DP21(1)=DP4(1) 
502 CONTINUE 
DO 504 1=3,4,1 
DZ22(1-2)=DZ4(1) 
DP22(1-2)=DP4(1) 
504 CONTINUE 
CALL MAKPOL( 14, DZ4, DN) 
CALL MAKPOL( 14, DP4, DDL) 
DNU5(5)2CMPLX(1.,0. ) 
° DD45(5 )=CMPLX(1.,0. ) 
DO 512 I=1,4 
DN4U5(1)=DN4(1) 
DD45(1)=DD4(1) 
512 CONTINUE 
WRITE(4,514) 
514 FORMAT('1','SECTION & OUTPUT',//, 
&' REASSEMBLE COEFFICIENTS FROM POLES AND ZEROS',//) 
WRITE(4,515) 
WRITE(4,520)DN45(5),DN45(4), DNYS(3),DN45( 2), DN4S( 1) 
WRITE(4,530)DD45(5),DD45(4), DD4S(3), DD45(2), DD4S(1) 


515 FORMAT(/' SINGLE FOURTH ORDER TRANSFER FUNCTION COEFFICIENTS',//) 
520 FORMAT(' FOURTH ORDER NUMERATOR COEFFICIENTS (NORMALIZED)',/, 


КГ Х,Е12.5,2Х,Е1215,‚/)) 


530 FORMAT(' FOURTH ORDER DENOMINATOR COEFFICIENTS (NORMALIZED)',/, 


&5(1X,E12.5,2X,E12.5,/),//) 
CALL MAKPOL(12,DZ21, DN21) 
CALL MAKPOL( 12,DP21, DD21) 
DN213(3)=CMPLX(1.,0.) 
DD213(3)=CMPLX(1.,0. ) 

DO 612 1=1,2 
DN213(1)=DN21(1) 
00213(1 )=0021(1) 

612 CONTINUE 

WRITE(4,614) 


614 FORMAT(' CASCADED SECOND ORDER TRANSFER FUNCTION COEFFICIENTS',/) 


WRITE(4, 615) 
WRITE(4,620)DN213(3),0N213(2),DN213(1) 
WRITE(4, 630)DD213(3),DD213(2),DD213(1) 
615 FORMAT(/' FIRST STAGE QUADRATIC FUNCTION COEFFICIENTS',/) 
620 FORMAT(' COMPLEX (REAL, IMAG) NUMERATOR COEFFICIENTS',/, 
&1X,E12.5,2X, E12.5, 


РАЛ s | F]2 РЕС 5, στ ІХ Е12,5,2Х,Е12.5,/) 


630 FORMAT(' COMPLEX (REAL, IMAG) DENOMINATOR COEFFICIENTS',/, 
ЕЕ 12,5,2Х,Е12.5, 


EEUU / 1Х,Е12,5,2Х,Е12.5,! 7 +',/,1X,E12.5, 2x, E12.5,/) 


CALL MAKPOL( !2, DZ22, DN22) 
CALL MAKPOL( 12, DP22, DD22 ) 
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ABPO3860 
ABPO3870 
ABPO3880 
ABPO3890 
ABPO3900 
ABPO3910 
ABPO3920 
ABPO3930 
ABPO 3940 
ABPO3950 
ΑΒΡΟ3960 
ABPO3970 
ABP03980 
ABPO3990 
АВРОЧ000 
АВРОЦ0О10 
АВРОЧ020 
АВРО4030 
ABPO4O4O 
ABPO4050 
АВРОЧ060 
АВРОЧ070 
АВРО4080 
АВР0О4090 
ABPO4 100 
ABPO4110 
ABPO4 120 
ABP04130 
ABPO4& 140 
ΑΒΡΟ 120 
АВРО& 160 
ABP04170 
АВРОЧ 180 
AB POH 1 90 
ΑΒΡΟΗΖΟΟ 
АВРО4210 
АВР0О4220 
АВРОЦ230 
АВРОЧ240 
АВРО4250 
АВР0О4250 
АВРОЧ270 
АВР0О4280 
АВР04290 
AB PO4 300 
ABP04&310 
ΑΒΡΟΙ 390 
ΑΒΡΟΒ330 
ABPO4&340 
ABP04350 
АВРОЕЗ60 
АВРОЧ370 
АВРОЕ380 
AB POH 390 
ABPO4&400 


ЕЕ: 


QOQO0O000000000000000000000QqQ000000O00O0O0O0Q00 


ABPDBP FORTRAN Al 
DN223(3)=CMPLX(1.,0.) ABPO4410 
DD223(3)=CMPLX(1.,0.) ABPO4420 
DO 712 |=1 2 АВР0Ц530 
DN223(1)=DN22( 1) АВРОЦЦО 
00223 ( I| )=D022( 1) ABPOLLSO 
712 CONTINUE ΑΒΡΟΙΜΙ60 
WRITE(4, 715) ΑΒΡΟΙ ΗΤΟ 
WRITE(4, 720 )ON223(3),0N223(2),0N223(1) ABPOLULUBSO 
WRITE(5, 730)0D223(3); DD22302) , DD223 ( 1) АВРОЦЦ90 
715 ҒОКМАТ(/" SECOND STAGE QUADRATIC FUNCTION COEFFICIENTS',//) АВРОЧ500 
720 FORMAT(' COMPLEX (REAL, IMAG) NUMERATOR COEFFICIENTS',/, АВР0Ц510 
ο Εδο ο "Ello 5Ё ΑΒΡΟΙ520Ο 
&' Z**2 +! m 1X, £12759 22 E 5, Ζ ο Ἱκ εδ ο... АВРОЧ530 
730 FORMAT(' COMPLEX (REAL, IMAG ) DENOMINATOR COEFFICIENTS',/, ABPO4540 
αἱ EI2.5, 2 RENS 5 АВР0Ц550 
&' Z*+2 +' УЛ 1X, E12. 5,2X,E12. 5, Z +',/, 1X, El2. 5, ee leo) ABPOLUS60 
STOP ABPO4570 
- END АВРОЧ580 
АВРОЧ590 
2.2.2... .....%%%0 .-.. ....... SS SSS ооо U UU ABPOL600 
АВРОЧ610 
SUBROUTINE PMPY ABPO4620 
ABPOL630 
PURPOSE АВРОЦ6ЧО 
MULTIPLY TWO POLYNOMIALS ABPO4650 
ABPO H660 
USAGE ABPOH670 
CALL PMPY(Z, IDIMZ,X, IDIMX,Y, IDIMY) ABPO4680 
АВРОЦ690 
DESCRIPTION OF PARAMETERS ABPO4700 
Z - VECTOR OF RESULTANT COEFFICIENTS, ORDERED FROM ABPO4710 
SMALLEST TO LARGEST POWER ABPOH 720 
IDIMZ - DIMENSION OF Z (CALCULATED) ABPO4730 
X - VECTOR OF COEFFICIENTS FOR FIRST POLYNOMIAL, ORDEREDABPO4THO 
FROM SMALLEST TO LARGEST POWER ABPO4750 
IDIMX - DIMENSION OF X (DEGREE IS IDIMX-1) ABP01760 
Y = = VECTOR OF COEFFICIENTS FOR SECOND POLYNOMIAL, ABPO4 770 
ORDERED FROM SMALLEST TO LARGEST POWER ABPOL780 
IDIMY - DIMENSION OF Y (DEGREE IS IDIMY-1) АВРОЦ790 
ABPOL800 
REMARKS ABPOL810 
Z CANNOT BE IN THE SAME LOCATION AS X ABPOL820 
Z CANNOT BE IN THE SAME LOCATION AS Y ΑΒΡΟΙ 830 
ABPO4Y84O 
SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED ABPO4850 
NONE ABPOLU860 
ABPOL870 
METHOD ABPOL880 
DIMENSION OF Z IS CALCULATED AS IDIMX-*IDIMY-1 АВР04890 
THE COEFFICIENTS OF Z ARE CALCULATED AS SUM OF PRODUCTS ΑΒΡΟΙΟΟΟ 
OF COEFFICIENTS OF X AND Y , WHOSE EXPONENTS ADD UP TO THE  ABPOL910 
CORRESPONDING EXPONENT ОЕ 7. АВР0ОЦ920 
АВР04930 
ee i oe ж ΑΒΡΟΙΟΙ0 
АВРОЦ950 
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FILE: ABPDBP FORTRAN ΑἹ 
SUBROUTINE PMPY(Z,IDIMZ,X, IDIMX, Y, IDIMY) ABPOL960 
DIMENSION Z(1),X(1), Y(1) АВР04970 
@ ABPOL980 
IF( IDIMX*IDIMY)10, 10,20 ABPOL990 
10 IDIMZ-0 ABPO5000 
GO TO 50 ABPO5010 
20 IDIMZSIDIMX*IDIMY-1 АВРО5020 
| DO 30 1=1, IDIMZ ABP05030 
30 2(1)=0. АВРО5ОЦО 
DO HO I-21,1DIMX ABP05050 
DO 4O J=1, IDIMY ABPO5060 
K= | +J 71 ABPO5070 
40 Z(K)=X(1)*Y(J)+Z(K) АВРО5080 
50 RETURN ABP05090 
END ABPO5100 
С АВРО5110 
С----------------------------------------------.--.-.-................-.....-- АВРО5120 
C ° ABP05130 
С SUBROUTINE MAKPOL ABPO5 1140 
C АВРО5150 
С PURPOSE ABP05160 ` 
Ç TO COMPUTE THE COMPLEX COEFFICIENTS OF AN N-TH DEGREE POLY- АВРО5170 
C NOMIAL GIVEN N COMPLEX ROOTS OF THE POLYNOMIAL АВРО5180 
С ; ABP05190 
Ç USAGE ABP05200 
C CALL MAKPOL(N,R, C) АВРО5210 
С АВРО5220 
C DESCRIPTION OF PARAMETERS АВРО5230 
C N - NUMBER OF ROOTS GIVEN AND DEGREE OF POLYNOMIAL. THE ABPO5240 
C COEFFICIENT OF THE HIGHEST POWER OF THE UNKNOWN IS ALWAYS ABPO5250 
С UNITY, AND IS NOT COMPUTED BY "MAKPOL'", . ΑΒΡΟ5260 
C R - DOUBLE PRECISION COMPLEX ARRAY CONTAINING THE COMPLE АВРО5270 
C ROOTS ABP05280 
C C - DOUBLE PRECISION COMPLEX ARRAY CONTAINING THE COMPLEX ABP05290 
Ç COEFFICIENTS ABP05300 
С АВРО5310 
С REMARKS ABP05320 
C ARRAYS R AND C ARE TYPED COMPLEX*16 ABP05330 
C ABPO5340 
SUBROUTINE MAKPOL(N,R,C) ABP05350 
COMPLEX*16 R(N),C(N) АВРО5360 
IF(N.LE.O) RETURN ABPO5370 
DO 10 1=1,М ABP05380 
10 C(1)=R(1) ΑΒΡΟ5390 
ΚΞΝ ABPO5400 
М-М-1 ABP05410 
DO 20 L=1,M ABPO5420 
DO 30 I=2,K ABP05430 
30 C(1)=C(1)+C(1-1) ABPO5440 
K-K-1 ABP05450 
DO 20 1=1,К ABPO5460 
J= I +L ABPO5470 
C( 1 )=R(J)*C(1) ABPO5480 
20 CONTINUE ABPO5490 
K=N/2 ABPO5500 
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FICE: SABPOBP FORTRAN A1 


K-2*K/(N-K) 

DO HO I=K,N,2 
4O C(1)=-C(1) 

RETURN 

END 
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ABPDBP OUTPUT 
SECTION 1 OUTPUT 


INPUT AND DERIVED PARAMETERS FOR FURTHER CALCULATIONS 


A = 21.164001 

В = 0.787152 

С = 0.842554 

D = 1.035090 

E = 30.507828 

А1 = 1.463835 

FO = 600.000 

WO = 3769.911 

Q = 12.000000 

K = 1.000000 

κι = 1.000000 

K2 1.000000 
WO(DIG) = 3712.266 
FO(DIG) = 590.825 


ELLIPTIC ANALOG BPF COMPONENT VALUES 


FIRST STAGE 


C11 = .996E-08 
С12 = .995Е-08 
ЕШ = .267E+05 
R11 = .393E+07 
R12 = .785E+06 
С = ..25тЕ+05 
R14 = .134E+06 
R15 = .945E+05 
R16 = .258Е%05 


SECOND STAGE 


C21 = . 1036-07 
ШЕР - .103Е-07 
R27 - .267Е%05 
R21 = .408E+07 
R22 = .813E*06 
Bee = .267E+05 
R24 = .134E+06 
R25 = .182E+06 
R26 = .266E+05 


5 7 


SECTION OUTPUT 
ANALOG ELLIPTIC BANDPASS FILTER TRANSFER FUNCTION 
NUMERATOR COEFFICIENT = RHO = 0.039811 


NUMERATOR POLYNOMIAL (NORMALIZED) 
0.10000E+01 S##*4 + 

0.0 S**3 + 

0.29587E+08 S##*2 + 

0.0 S 1 

0.18991Е%15 

NUMERATOR POLYNOMIAL (UN-NORMALIZED) 
0.39811Е-01 S##4 + 


0.0 ΠΤ 
Q. TTTTOETOT ЛАР 
0.0 S az 


0.75606E+13 


DENOMINATOR POLYNOMIAL ( NORMALIZED) 
. 10000E+01 S**4 + 

Озо ЕЛП ЕН И 

-21002E7 0G eS" 2 + 

.335D6GET+IO S + 

.18991E*15 


oOo O° Oc 


SECTION 2A OUTPUT 
ANALOG FILTER COMPLEX POLES AND ZEROS 


ANALOG FILTER ZEROS 


-0.45776E-03 0.30683E+04 
-0.45776E-03 -0.30683E+04 
0.45776E-03 0.44914E+04 
0.Ц45776Е-03 -0.44914E+04 


ANALOG FILTER 


-0.58188E+02 
-0.58188E+02 
“ο ο οτε ο 
-ο οὐ π ος 


PORES 
0.35859E+04 

-0.39859E+04 
0.38421E+04 

-0.38421E+04 
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SECTION 3 OUTPUT 
EQUIVALENT DIGITAL FILTER TRANSFER FUNCTION 
NUMERATOR COEFFICIENT = Ο.39516Ε-Ο1 


NUMERATOR (NORMALIZED) 
0.10000E+01 + 
-0.36279E+01 Z*#-1 + 
0.52861E*01 Z**-2 + 
-0.36279E*01 Z**-3 + 
0.10000E+01 Z**-4 


NUMERATOR (UN-NORMAL I ZED) 
B9516E-01 + 

ЕШ ПЗ3З3СЕЗОО 2%%-1 
ШЕЮСӘЗЕН00 2%%-2 
СОКИ 65700 Z*#-3 + 
1 τη 


vox 


DENOMINATOR 
0.10000E+01 + 
EUESS2S5TETO! Z**-1 + 
961101 2%%-2 
EU 5SETtO0l Z**-3 + 
BEOL353ETOO Z**-4 


س 


SECTION 3A OUTPUT 


DIGITAL FILTER COMPLEX POLES AND ZEROS AND RADIUS 


ZERO LOCATIONS (REAL, IMAG) AND RADIUS 

0.87496E+00 0.48595E+00 0.10009E+01 
0.87496E+00 -0.48595E+00 0.10009E+01 
0.93896E+00 0.34135E+00 0.99909E+00 
0.93896E*00 -0.34135Е%00 ο ο ο τος 


POLE LOCATIONS (REAL, IMAG) AND RADIUS 

0.90781E+00 0.40813E+00 0.99533E+00 
0.90781E+00 -0.40813E+00 0.99533E+00 
0.90475E+00 0.40493E+00 0.99123E+00 
0.90475E+00 -0.40493E+00 0.99123E+00 


που 


SECTION à OUTPUT 


REASSEMBLE COEFFICIENTS FROM POLES AND ZEROS 


SINGLE FOURTH ORDER TRANSFER FUNCTION COEFFICIENTS 


FOURTH ORDER NUMERATOR COEFFICIENTS ( NORMALIZED) 
0.10000E+01 0.0 
-0. 3627901 0.0 
ο 20012201 0.0 
-0.36279E+01 0.0 
0.99988E+00 0.0 


FOURTH ORDER DENOMINATOR COEFFICIENTS (NORMALIZED) 
0.10000E+01 0.0 

το GeO 0.0 

0.52586E+01 0.0 

-0.35766E8E+01 -0.18041E-15 

0.97339Е+00 0.0 


CASCADED SECOND ORDER TRANSFER FUNCTION COEFFICIENTS 


FIRST STAGE QUADRATIC FUNCTION COEFFICIENTS 


COMPLEX (REAL, IMAG) NUMERATOR COEFFICIENTS 
0.10000E+01 0.0 Zone =i 
-0.17499E+01 0.0 Zot 
0.10017E+01 0.0 


COMPLEX: (REAL, IMAG) DENOMINATOR COEFFICIENTS 
0.10000E+01 0.0 Ашама ЫЫ 
-0.18156Е+01 0.0 Zar 

0.99068E+00 0.0 


SECOND STAGE QUADRATIC FUNCTION COEFFICIENTS 


COMPLEX (REAL, IMAG) NUMERATOR COEFFICIENTS 
0.10000Е+01 0.0 Z**2 + 
-0.18779Е+01 0.0 Z + 
0.99817E+00 0.0 


COMPLEX (REAL, IMAG) DENOMINATOR COEFFICIENTS 
0.10000E+01 0.0 Z**2 + 
-0.18095E*01 0.0 Z + 

0.98255E*00 0.0 
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FILE: ABPFR FORTRAN Al 


CHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHAR POOO10 


000000000000 


C 


C 


C 


10 


20 


S 
H 
&(B(1 
H 
X 


APPENDIX D 


FORTRAN PROGRAM ABPFR 


PROGRAM TO PLOT ANALOG BAND-PASS FILTER FREQUENCY AND PHASE 
RESPONSE OF THE ELLIPTIC FILTER TRANSFER FUNCTION 


IMPLICIT REAL(A-H,O-Z), INTEGER( I -N) 

REAL W(1001),HMAG( 1001), HMAGN( 1001), HMAGDB( 1001) , WX, F( 1001) 
REAL A(5),B(5), HPHASE( 1001) 

COMPLEX S,H 


NORMALIZED ANALOG TRANSFER FUNCTION COEFFICIENTS 


ШІ) = 1. 

A(2) = 0.0 

А(3) = 0.30513Е+8 
А(4) = 0.0 

A(5) = 0.20198E+15 
B(1) = 1.0 

B(2) = 0.24 729E+3 
B(3) = 0.28507E+8 
B(4) = 0.35145E+10 
B(5) = 0.20198E+15 
CONSTANTS 


PI = 3.1415927 


EVALUATE MAGNITUDE AND PHASE OF H(JW) 


DO 10 | 
НІ 
М(1) 


1,1001 

ҒІОАТ( 1-1) 

(2.*PI*F(1)) 
= CMPLX(0.,W(1)) 
= Gino ty tA( 2) *( S**3 ) tA( SF S*#2) tAGa) ESTAS ).)/ 
MES ЕВО) ( S**3:)+B( 3) *(S**2)7B( 4) *SB(5)) 
MAG(1) = CABS(H) 

= REAL(H) 
Y = AIMAG(H) 
HPHASE(1) = ATAN(Y/X)*180./P1 

CONTINUE 


C 


p Z H H H 


NORMALIZE MAGNITUDE 


AMAX = 0.0 
DO 20 | = 1,1001 

IF(HMAG( 1). GT. AMAX) AMAX = HMAG(1) 
CONTINUE 
DO 30 | = 1,1001 

HMAGN( 1) = HMAG( 1) /AMAX 

НМАСОВ( 1) = 20.0 * ALOG10(HMAG(1)) 
CONTINUE 
DO 4O | = 1,1001 

WRITE (5,50)1,F( 1), W( | ), HMAG( ! ), HMAGN( I ), HMAGDB( 1 ), HPHASE( I ) 
FORMAT(14,6( 1X, E10.3)) 
CONT I NUE 


ғ. ә кз сә ο ο ο «ο «ο ο ο ο. ah OD aD ah EE NM ee M NM M 
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*ABP00020 
*ABP00030 
*ABPOOOHO 
*ABP00050 
*ABP00060 
*ABP00070 
*ABP00080 
*ABP00090 
*ABP00100 


HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHAR POO I 1] 0 


TYPE DECLARATIONS 


ABPOO120 
ABPOO130 
ABPOO1A0 
ABPOO150 
ABPOO160 
ABPOO170 
ABPOO180 
ABPOO190 
ABPOO200 
ABPOO210 
ABPOO220 
АВР00230 
ABPOO2A0 
АВР00250 
ABPOO260 
АВРО0270 
ABPOO280 
ABPOO290 
ABPOO300 
ABPOO310 
ABPOO320 
АВР00330 
ABPOO3A0 
ABPOO350 
ABPOO360 
ABPOO3 7O 
ABPOO380 
ABPOO390 
ΑΒΡΟΟΒΟΟ 
АВРО0Ч10 
ABPOO420 
ABP00430 
ABPOO44O 
АВР00450 
АВРО0Ч60 
ΑΒΡΟΟΝ 70 
АВР00480 
АВРО0490 
АВР0О0500 
ABPOO510 
ABPOO520 
ABPOO530 
ABPOO5AO 
ABPOO550 


FILE: ABPFR FORTRAN ΑἹ 


C GRAPHICS PARAMETERS FOR MAGNITUDE VS FREQUENCY ABPOO560 


=== an ABPOO570 
CALL LRGBUF ABPOO580 
CALL COMPRS ΑΒΡΟΟΡΟΟ 
С CALL TEK618 ABPOO600 
e CALL VRSTEC(0,0,0) ABPOO610 
C; nM SETUP THE PLOTTING AREA ABPOO620 
CALL PAGE (11.0,8.5) ABPOO630 
CALL NOBRDR ABPOO 640 
CALL AREA2D(9.0,6.5) ABPOO650 
C P LABEL THE X & Y AXES ABPOO660 
CALL XNAME('FREQUENCY (HZ)S', 100) ABPOO670 
CALL YNAME( ' AMPLITUDES'! , 100) ABPOO680 
CALL HEADIN('ANALOG ELLIPTIC BPF FREQUENCY RESPONSES',100,1.6,2) АВР00690 
CALL HEADIN('AMPLITUDE VS FREQ (F02600 HZ)S!',100,1.,2) ΑΒΡΟΟΤΟΟ 
Су рр DEFINE THE AXES i ABP00710 
CALL GRAF(0.0,'SCALE',1000., 70.5, 'SCALE',*1.5) ABPOO720 
C..... DRAW THE CURVES ABPOO730 
C CALL THKCRV(0.02) ΑΒΡΟΟΤΗΟ 
CALL MARKER( 15) ABPOO750 
CALL CURVE( F,HMAGN, 1001,0) ABPOO 760 
cC E TERMINATE THIS PLOT ABPOO770 
CALL ЕМОР (0) АВР0О0780 
С---------------------------------------------------------------------- ABPOO790 
C GRAPHICS PARAMETERS FOR MAGNITUDE IN DBS VS FREQUENCY ABPOO800 
С--------------------------------------- ==------====ш=еш есы ЧС ЧЧ А ABPOO810 
CALL LRGBUF ABPOO820 
CALL COMPRS ABPOO830 
е CALL TEK618 ABPOO84O 
C CALL VRSTEC(0,0,0) АВРОО850 
С SETUP THE PLOTTING AREA ΑΒΡΟΟΒόΟ 
CALL PAGE (11.0,8.5) ABPOO870 
CALL NOBRDR ΑΒΡΟΟΒΘΟ 
CALL AREA20(9.0,6.5) ABPOO890 
C fM LABEL THE X & Y AXES ΑΒΡΟΟΘΟΟ 
CALL XNAME('FREQUENCY (HZ)S$', 100) ABP009 10 
CALL YNAME('AMPLITUDE (0В)5!,100) ABPOO920 
CALL HEADIN('ANALOG ELLIPTIC BPF FREQUENCY RESPONSES',100,1.6,2) АВР00930 
CALL HEADIN('AMPLITUOE (DB) VS FREQ (F02600 HZ)S',100,1.,2) ABPOO94O 
C^ ae DEFINE THE AXES ABPOO950 
CALL GRAF(0.0,'SCALE',1000., 60.0, 'SCALE! , 30.0) ABPOO960 
NT DRAW THE CURVES ABPOO970 
С CALL THKCRV(0.02) . AABP00980 
CALL MARKER( 15) ΑΒΡΟΟΟΟΟ 
CALL CURVE( F, HMAGDB, 1001,0) ABPO1000 
C TE TERMINATE THIS PLOT ABPO1010 
CALL ENDPL(O) ABPO1020 
С---------------------------------------------------------------------- ABP0 1030 
C GRAPHICS PARAMETERS FOR PHASE VS FREQUENCY АВРО1040 
С---------------------------------------------------------------------- ABPO 1050 
CALL LRGBUF ABPO1060 
CALL COMPRS ABPO1070 
% CALL TEK618 ABPO1080 
G CALL VRSTEC(0,0,0) ABPO1090 
СЕКТЕ SETUP THE PLOTTING AREA ABPO1100 


NO? 


eee: 


ABPFR FORTRAN А1 


ЕЕ РАСбЕ |11.0,8.5) 

CALL NOBRDR 

CALL AREA2D(9.0,6.5) 

. LABEL THE X & Y AXES 

CALL XNAME('FREQUENCY (HZ)S', 100) 

CALL YNAME('PHASE (DEGREES)S', 100) 

CALL HEADIN( 'ANALOG ELLIPTIC BPF PHASE RESPONSES', 100,1.6,2) 

CALL HEADIN ('PHASE VS FREQ (FO=600 HZ)S',100,1.,2) 
; DEFINE THE AXES 

Gael GRAr(O.0, 'SCALE',1000.,-100. ,'SCALE', 100. ) 
DRAW THE CURVES 

CALL THKCRV(0.02) 

CALL MARKER( 15) 

CALL CURVE (F, HPHASE, 1001,0) 

TERMINATE THIS PLOT 

CALL ENDPL(O) 

CALL DONEPL 

STOP 

END 
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ABPO1110 
ABPO1120 
ABPO1130 
АВРО1140 
ABPO1150 
ABPO1160 
ABPO1170 
ABPO1180 
ABPO1190 
АВРО1200 
ABPO1210 
ABPO1220 
ABPO1230 
АВРО 120 
АВРО 1250 
АВРО 1260 
ABPO1270 
ABPO1280 
АВРО 1290 


FILES DEFTER FORTRAN Al 


CHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHOB POOO 1 0 


С 
С 
С 
С 
С 
C 
C 
C 
C 
C 
C 


APPENDIX E 


FORTRAN PROGRAM DBPFR 


PROGRAM TO PLOT DIGITAL BAND-PASS FILTER FREQUENCY AND PHASE 
RESPONSE OF THE ELLIPTIC FILTER TRANSFER FUNCTION 


TYPE DECLARATIONS 

IMPLICIT REAL(A-H,O-Z), INTEGER( I -N) 

REAL OMEGA( 201), HMAG( 201), HPHASE( 201), HMAGN( 201), HMAGDB( 201) 
REAL F(201), FREQ(201),FS,FSDIV2,TS 

COMPLEX Z,H 
NORMALIZED TRANSFER FUNCTION COEFFICIENTS 


АО = 1. 

А1 =-3.6279 
A2 = 5.2861 
A3 = A2 

AY = Al 

BO = 1. 

ВІ 2-3.625] 
B2 = 5.2556 
B3 =-3. 968 
Вч = 0.97353 
CONSTANTS 


PI = 3.1415927 
FS = 6.666E6/(H.*192.) 
TS=1./FS 
FSDIV2 = FS/2. 
EVALUATE MAGNITUDE AND PHASE OF H(EXP(J*OMEGA*T) ) 
DO 10 | = 1,201 
F(1) = FLOAT(1-1) 
FREQ(1) - 6.%Ғ(1) 
OMEGA(!) = (2.*PI*FREQ(1)#TS) 
Z = CMPLX(COS(OMEGA( ! ) ), SIN(OMEGA( I ) )) 
H 2 (AO*AT*Z**( -1)*A2*Z**( -2) -A3 *Z**( -3 )J JAU*Z**( ) ) / (BO+ 
&B1*Z**( -1)-B2*Z**( -2) -B3*Z**( -3) -BL*Z**( -h)) 
HMAG(1) - САВ5(Н) 
X = REAL(H) 
Y = AIMAG(H) 
HPHASE(1) = ATAN(Y/X)*180./PI 
10 CONTINUE 
NORMALIZE MAGNITUDE 
AMAX = 0.0 
00 20 1 = 1,201 
IF(HMAG( ! ). GT. AMAX) AMAX = HMAG( | ) 
20 CONTINUE 
DO 30 | = 1,201 
HMAGN(I) = HMAG(I)/AMAX 
НМАСОВ( 1) - 20.0 % А10610(НМАС(1)) 
30 CONTINUE 
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ΝΡΒΡΟΟΟΖΟ 
*DBP00030 
*DBPOOO4O 
%ОВР00050 
*DBP00060 
*DBP00070 
*DBP00080 
*DBP00090 
*DBP00100 


HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHDB POO11 0 


DBPOO120 
DBPOO130 
ОВРО0140 
DBPOO150 
DBPOO160 
ОВРО0170 
ОВРО0180 
DBPOO190 
DBPOO200 
ОВРО0210 
DBPOO220 
DBPOO230 
ОВРО02450 
DBPOO250 
DBPOO260 
DBPOO270 
DBPOO280 
DBPO0290 
DBPOO300 
ОВРО0310 
DBPOO320 
DBPOO330 
ОВРО03450 
DBP00350 
ОВР0О0360 
DBPOO370 
DBPOO380 
DBPOO390 
DBPOOROO 
DBPOOAL10 
DBPOO420 
DBPOO430 
DBPOO4L4O 
ОВР0О0450 
DBPOO460 
ОВРООЧ70 
DBPOO480 
ОВРО0Ч90 
ОВР0О0500 
ОВРО0510 
ОВРО0520 
ОВРО0530 
ОВРО0540 
DBPOO550 


eee: DBPFR FORTRAN А1 


C GRAPHICS PARAMETERS FOR MAGNITUDE VS FREQUENCY (IN HZ) 


CALL LRGBUF 


C CALL COMPRS 
| CALL TEK618 
C CALL VRSTEC(0,0,0) 
ИШ. ... SETUP THE PLOTTING AREA 


CALL PAGE (11.0,8.5) 
CALL NOBRDR 
CALL AREA2D(9.0,6.5) 
'...... LABEL THE X & Y AXES 
CALL XNAME(' FREQUENCY (HZ)S', 100) 
CALL YNAME('AMPLITUDES'‘, 100) 
CALL HEADIN('DIGITAL ELLIPTIC BPF FREQUENCY RESPONSES',100,1.6,2) 
CALL HEADIN( ‘NORMALIZED AMPLITUDE VS FREQ (FO=590 HZ)$',100,1.,2) 
ÁN... DEFINE THE AXES 
CALL GRAF(O.O0, 'SCALE', 1200. , -0.5, 'SCALE', 1.5) 
C..... DRAW THE CURVES 
CALL THKCRV(0.02) 
CALL MARKER( 15) 
CALL CURVE( FREQ, HMAGN, 201,0) 
..... TERMINATE THIS PLOT 
CALL ENDPL(0O) 


CALL LRGBUF 


C CALL COMPRS 
CALL TEK618 
C CALL VRSTEC(0,0,0) 
EE. SETUP THE PLOTTING AREA 


CALL PAGE (11.0,8.5) 
CALL NOBRDR 
CALL AREA2D(9.0,6.5) 
Cee... LABEL THE X & Y AXES 
CALL XNAME('FREQUENCY (HZ)$', 100) 
CALL YNAME('AMPLITUDE (DB)S$', 100) 
CALL HEADIN('DIGITAL ELLIPTIC BPF FREQUENCY RESPONSES',100,1.6,2) 
CALL HEADIN('AMPLITUDE (DB) VS FREQ (FO=590 HZ)$',100,1.,2) 
νι... . DEFINE THE AXES 
CALL GRAF(0.0,'SCALE',1200.,20.0,' SCALE', 100.0) 
@ MN DRAW THE CURVES 
CALL THKCRV(0.02) 
CALL MARKER( 15) 
CALL CURVE( FREQ, HMAGDB, 201,0) 
ο іс. TERMINATE THIS PLOT 
CALL ENDPL(0O) 


ο += == =з =з =з =з =з =з =з =з «m cm =з =з =з =з =з =з =з ез «ы «ы «в =з =з =з =з =з =з Gm Gm =з Gm Gm «m эз Gm Gm Gm Gm Gm Gm =з ©з =з =з ев =з «с «е =з =з =з == =з ыз =з =з =з =з =з ыз =з жэ =з =з =з س کے کے‎ 

C GRAPHICS PARAMETERS FOR PHASE VS FREQUENCY 

G «ы «в «в =з =з =з =з =з =з um cm аң cm ев еқ «ы Gm Gm Gm Gm =з Gn cm «қ Gm Gm Gm Gm Gn Gn cm m Gm Gm Gm еш GR Gm Gm am UR GA GR CR am Gm Gm Gm «с Gm Gm m «в =з =з =з =з жэ ав =з =з «в «в «в «в =з «в «в =з =з 
CALL LRGBUF 
CALL COMPRS 

C CALL TEK618 

C CAEE VRSTEC(O, 0, 0% 

p... SETUP THE PLOTTING AREA 
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ОВР0О0560 
DBPOO570 
DBPOOS80 
DBPOOSD90 
DBPOO600 
DBPOO610 
DBPOO620 
DBPOO630 
DBPOO640 
DBPOO650 
DBPOO660 
DBPOO670 
DBPOO680 
DBPOO690 
DBPOO700 
DBPOO710 
DBPOO720 
DBPOO730 
DBPOO7A0 
DBPOO750 
DBPOO760 
DBPOO770 
DBPOO/80 
DBPOO790 
DBPOOS800 
DBPOO810 
DBPOO820 
DBPOO830 
DBPOO840 
DBPOO850 
ΡΒΡΟΟΘόΟ 
DBPOOS870 
DBPOOS880 
DBPOO890 
DBPOO900 
DBPOO910 
DBPOO0920 
DBPOO0930 
DBPOO94O 
DBPOO950 
DBPOO960 
DBPOO970 
DBPOO980 
DBPOO990 
DBPO1000 
DBPO1010 
DBPO1020 
DBP01030 
DBPO1040 
DBPO1050 
DBPO1060 
DBPO1070 
DBPO1080 
DBPO1090 
DBPO1100 


Е ШЕР 


DBPFR FORTRAN Al 


CALL PAGE (11.028959 

CALL NOBRDR 

CALL AREA2D(9.0,6.5) 

. LABEL THE X & Y AXES 
CALL XNAME('FREQUENCY (HZ)S',100) 
CALL YNAME('PHASE (DEGREES)S', 100) 
CALL HEADIN('DIGITAL ELLIPTIC BPF PHASE RESPONSES',100,1.6,2) 
CALL HEADIN('PHASE (DEGREES) VS FREQ (F02590 HZ)S$',100,1.,2) 
; DEFINE THE AXES 
CALL GRAF(0.0,'SCALE'!, 1200., -100., 'SCALE', 100.) 

DRAW THE CURVES 
CALL THKCRV(0.02) 
CALL MARKER( 15) 
CALL CURVE( FREQ, HPHASE, 201,0) 

TERMINATE THIS PLOT 
CALL ENDPL(0O) 
CALL DONEPL 

STOP 

END 
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DBPO1110 
DBPO1120 
DBPO1130 
DBPO1140 
DBPO1150 
DBPO1160 
DBPO1170 
DBPO1180 
DBPO1190 
DBPO1200 
DBPO1210 
DBPO1220 
DBPO1230 
OBPO1240 
DBPO1250 
DBPO1260 
DBP01270 
DBP01280 
DBP01290 


БЕ 5221 


FORTRAN А1 


CHHEHHHHHHHHHH H HHH HH HH HF HH HE HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF 3F 3F HF HF HF HF HF HF ¥ HHH HFH C2 20001 0 


OO OOOO O ОХООО О OO O O 


APPENDIX F 


FORTRAN PROGRAM S22 | 


THIS PROGRAM SIMULATES THE EXECUTION OF A 2920 PROGRAM | 
FOR A FOURTH ORDER ELLIPTIC 600 HZ BANDPASS FILTER TRANSFER 
TRANSFER FUNCTION WHICH IS THE PRODUCT OF TWO SECOND ORDER 

FILTER SECTIONS 


WEN NOCI.Z)  N2(2,Z) 
Н(2) - ---- < ------- Х ------- 
МІРІ 921,7) D2(2,Z) 
THE SIMULATION IS PERFORMED FOR AN IMPULSE INPUT EQUAL TO THE 


: GREATEST ALLOWABLE 
OVER NUMIT 


INPUT (SINMAG) AT TO AND ALLOWED TO RUN 
ITERATIONS TO CHECK FOR STABILITY. 


*S2200020 
*S2200030 
*S2200050 
*S2200050 
*S2200060 
*S2200070 
*S2200080 
*S2200090 
%52200100 
"52200170 
*S2200120 
*S2200130 
*S22001H0 
*S2200150 
*S2200160 
*S2200170 
*S2200180 
*S2200190 
"S2200200 


CGHHHHHHHHHHHRFHHHRPHHRHHFHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH S2200271 0 


C VARIABLE DECLARAT | ONS 


INTEGER NUMIT, I MXAMP 
REAL X1(3),X2(3),Y1(3),Y2(3) 
REAL SCALS1,SCALS2,SINMAG, MXAMP 
REAL N2(2,3),D2(2,3),T,TX 
DECLARE NUMBER OF SIMULATION 
NUMIT=8192 
PRINT OUTPUT HEADING 
WRITE(4, 80) 
80 FORMAT(' S221 PROGRAM OUTPUT',//, 
&' FOURTH ORDER FILTER IMPULSE RESPONSE',/, 
&' (CASCADED SECOND ORDER SECTIONS)',///) 
FIRST SECOND ORDER STAGE COEFFICIENTS 
ШЕ(11,3)-1. 
N2(1,2)2-1.759875 
N2(1,1)=1.001585 
pe(1,3)=1. 
D2(1,2)=-1.81555 
D2(1,1)=0.990601 
PRINT FIRST STAGE TRANSFER FUNCTION 
ШЕІТЕ(Д, 81)М2(1,3),М2(1,2),М2(1,1),02(1,3),02(1,2),02(1,1) 
81 FORMAT(' FIRST STAGE TRANSFER FUNCTION (2920 COEFFICIENTS)',//, 
& ΕΙ XEM б,' 7#*#-1 9 9 E15.6,' "z*t*-2'! /, 


ITERATIONS 


&' ---------------------------------------------------------- ey) 


ιν... εἰ 6,” ЖҰ Т ЕТ 6)! Z**=1 + ' Ellhh.6,'! Z**#=2' ///) 
SECOND SECOND ORDER STAGE COEFFICIENTS 
N2(2,3)=1. 
М2(2,2)--1.877805 
М2(2,1)-0.998169 
b2(2,3)=1. 
D2(2,2)=-1. 809446 
0202, 1)=0. 982554 
PRINT SECOND STAGE TRANSFER FUNCTION 
me ITE(4,82)N2(2,3),N2(2,2),N2(2,1),D2(2,3),D2(2,2),02(2,1) 
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52200220 
52200230 
52200240 
52200250 
52200260 
52200270 
52200280 
52200290 
52200300 
52200510 
52200320 
32200530 
52200350 
52200350 
52200360 
52200370 
52200380 
52200390 
52200500 
52200510 
52200520 
52200830 
52200440 
, 92200450 
S2200560 
$2200470 
52200480 
52200590 
52200500 
52200510 
52200520 
52200530 
52200550 
52200550 


FILE: Sool 


О ООО 


C 


FORTRAN А1 


82 FORMAT(' SECOND STAGE TRANSFER FUNCTION (2920 COEFFICIENTS)',//, 


& 
&' ',6€14.6,' + ',€14.6,' Z**-1 + ',€14.6,' Z**-2' | ///) 
INITIALIZE VARIABLES 
SCALS1=0. 
5СА( 52-0, 
SAMPLE PERIOD = T = 1.1521152 X 10**-4 SECONDS 
T=4.*192./6.666E6 
COMPUTE SCALE SUM FOR STAGES TO LIMIT 
DO 6 K=1,3 
SCALS1=SCALS1+ABS(N2(1,K)) 
SCALS1=SCALS1+ABS(D2(1,K) ) 
SCALS2=SCALS2+ABS(N2(2, K) ) 
SCALS2=SCALS2+ABS(D2(2,K)). 
6 CONTINUE 
ENSURE SCALE SUM FACTORS WILL LIMIT OUTPUT TO LESS THAN ONE 
- SCALS1=SCALS1+1.E-6 
SCALS2=SCALS2+1.£-6 
COMPUTE SIMULATED INPUT MAGNITUDE LIMIT 
5 | ММАС-1./(5СА1.51%5СА(52) 
PRINT STAGE SCALE SUMS AND INPUT MAGNITUDE LIMIT 
WRITE(4,85)SCALS1, SCALS2, SI NMAG | 
85 FORMAT(//,' SCALE FACTORS AND INPUT MAGNITUDE LIMIT',///, 
&' FIRST STAGE SCALE SUM = ',£14.6,/, 
&' SECOND STAGE SCALE SUM » ',E15.6,/, 
&' INPUT AMPLITUDE LIMITED TO */- '!,E15.6,////) 
PERFORM IMPULSE RESPONSE SIMULATION 
INITIALIZE STAGE INPUTS AND OUTPUTS 


INPUT AMPLITUDE 


МХАМР-0. 
ІМХАМР-0 
PRINT SIMULATION HEADINGS 
WRITE( 4,98) 
98 FORMAT(' FILTER 
WRITE(4,99) 
99 FORMAT(/,' l TIME І М1 
COMPUTE SIMULATED FiLTER RESPONSE OVER REQUIRED 


IMPULSE RESPONSE',//) 


ους. 
ITERATIONS (NUMIT) 


DO 10 I21,NUMIT 
INI = Х1(1) » IMPULSE INPUT AT T=0. 
ІР (1.Е0.1) Х1(1)-5ІММАС 
IF (1.NE.1) X1(1)=0. 
TX = TOTAL ELAPSED SAMPLE TIME 
TX=T*FLOAT( 1-1) 
OUT1 = Y1(1) = FIRST STAGE OUTPUT = IN2 = X2(1) = SECOND STAGE !NPUT 


Ұ1(1)-М2(1,3)%Х1(1)%М2(1,2)%Х1(2)%М2(1,1)%Х1(3)- 
& |. D2(1,2)*Y1(2)-D2(1, 1)*Y1(3) 
X2(1)2Y1(1) 
Y2(1) = SECOND STAGE OUTPUT = XN(1) 
Y2(1)zN2(2,3)*X2(1)*N2(2,2) *X2(2) *N2(2, 1) *X2(3)- 


OUT2 = 
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S2200560 
$2200570 
$2200580 
52200590 
52200600 
52200610 
52200620 
52200630 
52200640 
52200650 
52200660 
52200670 
52200680 
52200690 
52200700 
52200710 
52200720 
52200730 
52200740 
52200750 
52200760 
52200770 
52200780 
52200790 
52200800 
52200810 
52200820 
52200830 
52200840 
52200850 
52200860 
52200870 
52200880 
52200890 
52200900 
52200910 
52200920 
52200930 
52200940 
52200950 
52200960 
52200970 
52200980 
52200990 
S2201000 
S2201010 
S2201020 
S2201030 
S2201040 
S2201050 
S2201060 
S2201070 
S2201080 
52201090 
52201100 


meee: 522 | FORTRAN Al 


& OZ ο ο te) s02( 251) *V2(3) 
IF ((MXAMP.LT.(ABS(Y2(1)))).AND.(1.NE.1)) GO ТО 30 
GO TO 40 
30 МХАМР=АВ5(Ү2(1)) 
IMXAM P= | 
40 CONTINUE 


C PRINT PARAMETERS FOR EACH SIMULATION ITERATION 
Qd E E HE iF PETE PETE t t t +t PEE HE t + t + St 3t 3t E HE E HF 3 E 
WRITE(4,100)1M1,7TX,X1(1),Y2(1) 
100 FORMAT( 1X, !4, 2X, 3(F13.6,2X) ) 
USE THIS OUTPUT FORMAT FOR EASYPLOT ROUTINE 
WRITE(4, 100) TX,X1(1),Y2(1) 
100 FORMAT( 1X, 3(F15.8,2X) ) 
CHHHHHHH HH HH HF HF HF HF HF HF +++ HF HF HF HF HF HF HF HF HF +++ +++ ++ ++ 
C PERFORM SIMULATION SHIFT DELAY 
DO 15 J=2,3,1 
Y1(5-J)sY1(h-J) 
. X1(5°J )=X1(4-J) 
Y2(5-J)=Y2(4U-J) 
X2(5-J )=X2(4-J) 
15 CONTINUE 
IF (M00(1,512))10,14,10 
14 WRITE(4, 16) 1,MXAMP 


O O O O O 


16 FORMAT(' MAX AMPLITUDE OF IMPULSE RESPONSE OVER ',15, 
&' ITERATIONS = ',F9.6) 
10 CONTINUE 


WRITE(4,18)1MXAMP 

18 FORMAT(/,' MAX AMPLITUDE OCCURRED AT ITERATION ',15) 
STOP 
END 
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S2201110 
S2201120 
S2201130 
52201150 
52201150 
52201160 
52201170 
52201180 
52201190 
52201200 
62201210 
52201220 
52201230 
52201240 
52201250 
52201260 
52201270 
52201280 
52201290 
52201300 
52201310 
62201320 
52201330 
52201340 
52201350 
52201360 
62201370 
52201380 
52201390 
52201400 


S22 | 


FOURTH ORDER FILTER 
(CASCADED SECOND ORDER SECTIONS) 


PROGRAM OUTPUT 


IMPULSE RESPONSE 


FIRST STAGE TRANSFER FUNCTION (2920 COEFFICIENTS) 


О. 100000Е+01 + 


0.100000E+01 + 


ο, τα ετοι κ. от 


-0.189059E*01 Z**-1-* 


0. 10015 9E CON 
0.990601E+00 


SECOND STAGE TRANSFER FUNCTION (2920 COEFFICIENTS) 


0.100000E+01 + 


O. 100000E+01 + 


-0.187780E*01 Z**-1 + 


ο συ σον οπή = 


SCALE FACTORS AND INPUT MAGNITUDE LIMIT 


FIRST STAGE SCALE SUM = 
SECOND STAGE SCALE SUM = 
INRUT AMPLITUDE LIMITED TO #/2 


FILTER IMPULSE RESPONSE 


MAX 
MAX 
MAX 
MAX 
MAX 
MAX 
MAX 
MAX 
MAX 
MAX 
MAX 
MAX 
MAX 
MAX 
MAX 
MAX 


MAX 


AMPLITUDE 
AMPLITUDE 
AMPLITUDE 
AMPLITUDE 
AMPLITUDE 
AMPLITUDE 
AMPLITUDE 
AMPLITUDE 
AMPLITUDE 
AMPLITUDE 
AMPLITUDE 
AMPLITUDE 
AMPLITUDE 
AMPLITUDE 
AMPLITUDE 
AMPLITUDE 


AMPLITUDE 


OF 


OCCURRED AT 


IMPULSE 
IMPULSE 
IMPULSE 
IMPULSE 
IMPULSE 
IMPULSE 
IMPULSE 
IMPULSE 
IMPULSE 
IMPULSE 
IMPULSE 
IMPULSE 
IMPULSE 
IMPULSE 
IMPULSE 
IMPULSE 


0.755761E+01 
0766/9 /Ef01 


RESPONSE 
RESPONSE 
RESPONSE 
RESPONSE 
RESPONSE 
RESPONSE 
RESPONSE 
RESPONSE 
RESPONSE 
RESPONSE 
RESPONSE 
RESPONSE 
RESPONSE 
RESPONSE 
RESPONSE 
RESPONSE 


OVER 
OVER 
OVER 
OVER 
OVER 
OVER 
OVER 
OVER 
OVER 
OVER 
OVER 
OVER 
OVER 
OVER 
OVER 
OVER 


ITERATION 


O 1 72558E=-01 


512 
1024 
1536 
2048 
2560 
3072 
3584 
4096 
4608 
5120 
56392 
6144 
6656 
7168 
7680 
8192 


150 


1500 


0.998169Е%00 
0.982554E+00 


ITERATIONS 
ITERATIONS 
ITERATIONS 
ITERATIONS 
ITERATIONS 
ITERATIONS 
ITERATIONS 
ITERATIONS 
ITERATIONS 
ITERATIONS 
ITERATIONS 
ITERATIONS 
ITERATIONS 
ITERATIONS 
ITERATIONS 
ITERATIONS 


2%%-2 


2%%-2 


z**-2 


z**-2 


l H H H l H H H ll H HMH H Á l H H H 


© ОО СО Оо O O O O S S S O O O O 


.ОТ15 35 
.011935 
011935 
„011935 
‚011935 
.011935 
7; 
O9 5 
ο 15 
ο] 5 
«011755 
. 011935 
οἱ) 
.011935 
. OI 1955 
4011959 


But: S22lG FORTRAN 


A1 


CGC HHHH HH HH HF HF HE HF HF HF HF HE HF HE HF HF HEH HE HE HF HE HF HH HF HF HE HF HF HF HF HF HF 4F HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF 4F HF HF HH HHH HFS 2 200 O 10 


THIS PROGRAM SIMULATES THE EXECUTION OF A 2920 PROGRAM 


FOR A 600 HZ BANDPASS FILTER TRANSFER FUNCTION WHICH 
PRODUCT OF TWO SECONO ORDER FILTER SECTIONS 


NZA) 


THE SIMULATION 
GREATEST ALLOWAB 


THE FAST FOURIER TRANSFORM OF THE 


DN213(Z) 


DD213(Z) 


LE 


0М223(2) 


р0223(2) 


IS PERFORMED FOR AN 
INPUT (SINMAG) AT T=0. 
IMPULSE SEQUENCE OVER 1024 


IMPULSE 


ο THE 


INPUT EQUAL TO THE 
WE THEN EXAMINE 


SAMPLES TO CONFIRM THE FREQUENCY RESPONSE OF THE, SYSTEM. 


O O O O O O O O O O O O O O 
== 
N 
H 
i 
! 
. 
i 
I 


*52200020 
*S2200030 
%52200040 
*S2200050 
*S2200060 
*S2200070 
*S2200080 
552200090 
552200100 
S2200110 
*S2200120 
*S2200130 
*S2200140 
*S2200150 


CHH HH HHHH H H H H HE HE HE HE HE HE HEP HE HE HE HE HE HF HE HE HE HF HE HE HF HE HF HE HF HF HF HF HE HF HE HE HF HF HF HF HF HF HF HF HF HF HF HF EX HHHHHHHHHHSOOOO 160 


C VARIABLE DECLARATIONS 
А INTEGER 


ІМ1,М,1МК(11) 
ΙΙ ЖІ(3),Х2(3),Ү1(3),Ү2(3) 


REAL SCALS1,SCALS2, SI NMAG 
I EDN213( 3)27DD213(3),DN223(3),DD223(3), T, TX 


COMPLEX A( 1024) 


REAL XK( 1024), XKHZ( 1024), XN( 1024), YMAG( 1024), YPH( 1024) ,2( 1024) 


C PRINT OUTPUT HEADING 
WRITE( 4,80) 


80 FORMAT('EIGHTH ORDER FILTER IMPULSE RESPONSE',/, 

& (CASCADED SECOND ORDER SECTIONS)',/, 

&'( SECOND FOURTH ORDER BLOCK OF EIGHTH ORDER FILTER)',//) 

C FIRST SECOND ORDER STAGE COEFFICIENTS 


BN213(3)21. 


DN213(2)2-1.749875 


DN213(1)21.001585 
DD213(3)=1. 

С 13(2)--1.81555 
DD213(1)20.990601 


C PRINT FIRST STAGE TRANSFER FUNCTION 


EDS I31)DN21S(3); BN213(2)7DN213(1), DD213( 3), DI213(2), DD213(1) 


81 FORMAT('SECOND FIRST STAGE TRANSFER FUNCTION' , //, 
БЕС Т "/ЕТІ-6,! 75%-1 “4 ",E15.6,' Z**-2',/, 
x! i ED EDS 2-S د ت‎ нь ав ав 
&E14.6,' + ',E14.6,' Z**-1 + ',E14.6,' Z**-2',///( 
C SECOND SECOND ORDER STAGE COEFFICIENTS 


ШІ223(3)-1. 


 С223(2)--1.877805 


DN223(1)=0.998169 
00223(3)-1. 


DD223(2)=-1.809446 


P2231 )=0.982544 
C PRINT SECOND 


STAGE TRANSFER FUNCTION 
ΙΙ; ΟΠΝΖΕ53{53, pDN22302) 5: DN2253( 1),:00223( 3); DD223(2), DD223(1) 


82 FORMAT('SECOND SECOND STAGE TRANSFER FUNCTION! , //, 
ELM RIS ΓΗ, ΕΤΕ 8, σπορ), 
&' лс MONCTRCTTOWONCR OL R4 1 ә = Re—————————— ——— αυ 
ο EEG EMG, NT FEF TG a 


C INITIALIZE VARIABLES 
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S2200170 
S2200180 
S2200190 
S2200200 
See 00210 
S2200220 
S2200230 
S2200240 
S2200250 
S2200260 
52200270 
52200280 
S2200290 
S2200300 
S2200310 
S2200320 
S2200330 
52200340 
S2200350 
S2200360 
S2200370 
S2200380 
S2200390 


' , / , 52200400 


52200410 
52200420 
52200550 
52200440 
52200450 
52200460 
52200470 
522001880 
52200490 
52200500 
52200510 
52200520 


Z 92200530 


$2200540 
S2200550 


ЕСЕ 52210 ҒОКТКАМ А1 


5СА(51-0. 
5СА(52-0. 


C SAMPLE PERIOD = T = 1.1521152 X 10**-H SECONDS 


T=4.*192./6.666E6 


C COMPUTE SCALE SUM FOR STAGES TO LIMIT 


DO 6 K=1,3 
SCALS1=SCALS1+ABS(DN213 
5СА(51-5СА(51%АВ5( 00213 
SCALS2=SCALS2+ABS(DN223 
SCALS2=SCALS2+ABS( DD223 

6 CONTINUE 


х жж Ж 


)) 
)) 
) ) 
)) 


C ENSURE SCALE SUM FACTORS WILL LIMIT OUTPUT TO LESS THAN ONE 


5СА(51-5СА( 5141. Е-6 
5СА(52-5СА(52%1.Е-6 


C COMPUTE SIMULATED INPUT MAGNITUDE, LIMIT 


SINMAGz1./(SCALS1*SCALS2) 


C PRINT STAGE SCALE SUMS AND INPUT MAGNI TUDE LIMIT 


-  WRITE(4,85)SCALS1, SCALS2, SI NMAG 


85 FORMAT(//,'SCALE FACTORS AND INPUT MAGNITUDE LIMIT',//, 


&' FIRST STAGE SCALE SUM = ',£14.6,/, 
&' SECOND STAGE SCALE SUM = ',E1h.6,/, 
&' INPUT AMPLITUDE LIMITED TO */- ',E15.6,///) 
C PERFORM IMPULSE RESPONSE SIMULATION 
C INITIALIZE STAGE INPUTS AND OUTPUTS 
БОБ 953 
Т0 
X2( [)=0. 
¥ 1:61) =02 
Yo (ll) 0. 
5 CONTINUE 
C PRINT SIMULATION HEADINGS 
WRITE(4,98) 
98 FORMAT(///,'FILTER IMPULSE RESPONSE',//) 
WRITE( 4,99) 
99 FORMAT(/,' | ТІМЕ 


C COMPUTE SIMULATED FILTER RESPONSE OVER 


Qe de dede de 4e de 4€ 4€ 4e 4€ 3€ 4€ 4e de 4€ 3€ 4e 3€ 364€ 4€ 3€ 4e 4€ 3€ 3€ He 3€ € 


C ADJUST AS NECESSARY 
DO 10 1=1, 1024 

Qd ae de 4e 4 4€ 4e 4e 4e 4e 4€ 36 4e 4€ 4e 4€ e 4€ H6 He 4€ H6 4€ He 4€ 3€ 4€ € 

C IN1 2 X1(1) » IMPULSE INPUT AT T-0. 
IF (I. EQ. 1) X1(1)2S! NMAG 
IF (I.NE. 1) X1(1)=0. 

C TX = TOTAL ELAPSED SAMPLE TIME 
TX=T*FLOAT( 1-1) 

C OUT1 = Y1(1) = FIRST STAGE OUTPUT = 


IN2 


& DD213(2)*Y1(2)-DD213(1)*Y1(3) 


Х2(1)-У1(1) 


FILTER OUTPUT 
Y2(1)=DN223(3)*X2(1 )+DN2Z23( 2 Fee ΠΟ ο πο ο). 


C OUT2 = Y2(1) = SECOND STAGE OUTPUT = 
& D0223(2)*Y2(2) -DD223(1)*Y2(3) 
XN( 1 )2Y2( 1) 


C FORM COMPLEX ARRAY OF IMPULSE VALUES FOR DFT 


A( I )SZCMPLX(Y2(1),0.) 


172 


INPUT AMPLITUDE 


SECOND STAGE 
Y1(1)=DN213(3)*X1(1)+DN213(2)#X1(2)+DN213(1)#X1(3)- 


52200560 
52200570 
52200580 
52200590 
52200600 
52200610 
52200620 
52200630 
52200640 
52200650 
52200660 
52200670 
52200680 
52200690 
52200700 
52200710 
52200720 
52200730 
52200740 
52200750 
52200760 
52200770 
52200780 
52200790 
52200800 
52200810 
52200820 
52200830 
52200840 
52200850 
52200860 
52200870 
52200880 
52200890 
52200900 


INDICATED NUMBER OF SAMPLES (1)S2200910 


$2200920 
$22009 30 
S2200940 
52200950 
52200960 
52200970 
52200980 
52200990 
52201000 
S2201010 
S2201020 
S2201030 
S2201040 
S2201050 
S2201060 
S2201070 
S2201080 
S2201090 
S2201100 


meee: 52216 


C PRINT PARAMETERS ‘FOR EACH SIMULATION 


FORTRAN Al 


ITERATION 


(CG HH HE HE HH HF HF HF HF HF HF HF HF 3F HF FF HF HF HF HF HF HF HF HF HF HF HF HF FF FF +: + + 


|М1=1-1 
КЮТЕ ШЧ УЛОО) М1,ТХ,Х1(1),Ү2( 1) 


100 FORMAT( 1X, 14, 2X, 3( F13.6, 2X) ) 


C USE THIS OUTPUT FORMAT FOR EASYPLOT ROUTINE 


C 
C 100 


WRITE(4,100)TX,X1(1),Y2(1) 
FORMAT(1X,3(F15.8,2X)) 


(CG HE Tt + + HF HF HF HE HE HF HF HF HE HF HF H HF HE HE 3F HF HF HF HF HF HF HF HF HF 3F 3F 3F HF 3 HF 


C PERFORM SIMULATION SHIFT DELAY 


ООО 


BONS J2 1 
netos us) 
XS U) XIE) 
ΠΠ) 
X2(5-J)=X2(4-J) 
CONTINUE 
CONTINUE 
CONTINUE 
THIS PROGRAM CALCULATES THE DFT OF THE IMPULSE RESPONSE 
OVER 1024 VALUES. THIS IMPLIES M 9 (2**9=1024). IWK 
INTEGER VECTOR FOR FFT2C CALCULATION OF LENGTH M+1 = 10 
M=10 
ШІ 30 1-1,1024 
A( | )=CONJG(A(1)) 
CONTINUE 
CALL FFT2C(A,M, IWK) 
WRITE(4, 38) 
38 FORMAT(///,1X, 'DFT IMPULSE RESPONSE OUTPUT OVER 1024 
V! K YMAG ҮРНАЅЕ', /) 
DO 4O 1=1,1024 
”1-1]-ο. 
A( 1 )=CONJG(A(1)) 
ХК(!1)=РЕОАТ( 1-1) 
XKHZ( Il )2( 1. /T) *( XX( 1 )/1024. ) 
YMAG( ! )-CABS(A( 1 )) 
YPH( ! )SZATAN(AI MAG( AC 1) )/REAL(A( 1))) 
WRITE(&4,39)XK( I ), YMAG( 1 ) , YPH( I ) 
39 FORMAT( 1X, F8.0,4X, F1l2.4, 4X, F12.4) 
4O CONTINUE 


- 


5 
10 
“20 


IS AN 


30 


ITERATIONS! 


LRGBUF 
TEK618 
COMPRS 
SETUP THE PLOTTING AREA 
PAGE. (11.0,6 25) 
NOBRDR 
CALL AREA2D(9.0,6.5) 
To LABEL THE X & Y AXES 
CALL XNAME('FREQUENCY (HZ)$',100) 
CALL YNAME('MAGNITUDES', 100) 
CALL HEADIN ('DFT OF DIGITAL FILTER IMPULSE RESPONSES',100,1.6,2) 
CALL HEADIN ('MAGNITUDE VS FREQUENCYS',100,1.,2) 
DEFINE THE AXES 


173 


92201110 
92201120 
S2201130 
S2201140 
S2201150 
52201160 
S2201170 
S2201180 
S2201190 
S2201200 
S2201210 
S201220 
92201230 
52201240 
52201250 
52201260 
52201270 
92201280 
secas 
92201300 
52201510 
52201320 
S220 350 
$2201340 
52201350 
52201360 
52201370 
S2201380 
S2201390 
S2201400 
S2201410 
S2201420 
S2201430 
S2201440 
52201450 
52201460 
52201470 
52201480 
52201490 
52201500 
52201510 
S2201520 
S2201530 
52201540 
52201550 
52201560 
S2201570 
S2201580 
S2201590 
S2201600 
S2201610 
S2201620 
S2201630 
52201640 
52201650 


FILE 52 206 FORTRAN Al 


CALL CROSS S2201660 

CALL GRAF(0O.,100.,1100.,0.0,0.5,2.5) S2201670 

C. EM DRAW THE BAR CURVES S2201680 
CALL BARPAT( 16) S2201690 

CALL BARWID(0.02) S2201700 

CALL VBARS( XKHZ,Z, YMAG, 128) S2201710 
ONE. TERMINATE THIS PLOT S2201720 
CALL ENDPL(0O) S2201730 
С---------------------------------------------------------------------- 52201740 
C GRAPHICS PARAMETERS FOR YPHASE VS K $2201750 
Ο---------------------------------------------------------------------- 52201760 
CALL LRGBUF S2201770 

C CALL TEK618 $2201780 
CALL COMPRS 52201790 

C 2 s SETUP THE PLOTTING AREA. S2201800 
CALL PAGE (11.0,8.5) $2201810 

CALL NOBRDR $2201820 

- CALL AREA2D(9.0,6.5) $2201830 

С 6: И LABEL THE X & Y AXES $2201840 
CALL XNAME('FREQUENCY (HZ) $', 100) $2201850 

CALL YNAME(' PHASE (RADS)S$', 100) S2201860 

CALL HEADIN ('DFT OF DIGITAL FILTER IMPULSE RESPONSES',100,1.6,2) $2201870 

CALL HEADIN ('PHASE VS FREQUENCYS',100,1.,2) $2201880 
ο... DEFINE THE AXES $2201890 
CALL CROSS $2201900 

CAML GRAELO., 106.1100. , 28050. 5, 2-0) 52201910 
С DRAW THE PHASE CURVE 52201920 
CALL THKCRV(0.01) 52201930 

CALL MARKER( 15) 52201940 

CALL CURVE( XKHZ, YPH, 128,0) $2201950 
ο... TERMINATE THIS PLOT $2201960 
CALL ENDPL(O) $2201970 
С---------------------------------------------------------------------- 52201980 
C GRAPHICS PARAMETERS FOR IMPULSE RESPONSE У5 М $2201990 
С---------------------------------------------------------------------- 52202000 
CALL LRGBUF 52202010 

C CALL TEK618 S2202020. 
CALL COMPRS 52202030 

с У SETUP THE PLOTTING AREA S2202040 
CALL PAGE (11.0,8.5) S2202050 
CALL NOBRDR S2202060 

CALL AREA2D(9.0,6.5) S2202070 

C NM LABEL THE X & Y AXES $2202080 
CALL XNAME(' ITERATION (N) $', 100) S2202090 

CALL YNAME( 'MAGNITUDES' , 100) S2202100 

CALL HEADIN ('DIGITAL FILTER IMPULSE RESPONSES',100,1.6,3) $2202110 

CALL HEADIN ('OUTPUT VS ITERATION $',100,1.,3) $2202120 

CALL HEADIN (INPUT = -.OT7 (SINMAG) ATT = OS 0O КК S2202130 

с^ ῬΒΕῈΕ DEFINE THE AXES $2202140 
CALL GRAB(O0S 2641: 9021.5 03.01, 03.) $2202150 

C. c DRAW THE IMPULSE RESPONSE CURVE S2202160 
CALL THKCRV(0.01) $2202170 

CALL MARKER(15) $2202180 

CALL CURVE( XK,XN, 1024,0) $2202190 
ο. TERMINATE THIS PLOT $2202200 
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ΓΕ: 592210 FORTRAN Al 


CALL ENOPL(O) 
CALL DONEPL 
STOP 

ENO 
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52202210 
52202220 
52202230 
52202240 


FILE: S22F 


FORTRAN Al 


(GEH HF HF HE HF HF HF HF HF HF HF HF HF HF HE E HF E HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HE HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF 4 4¢ ¢ 3¢ 4¢ 4¢ ¢ 4¢ 3¢ 3¢ 3¢ 3 4 #¥ C22 000 1 0 


OOOOOOOO0OO0O0O0O0O0O0 OO O 


e 


APPENDIX G 


FORTRAN PROGRAM S22F 


THIS PROGRAM SIMULATES THE EXECUTION OF A 2920 PROGRAM 


FOR A 600 HZ BANDPASS FILTER TRANSFER FUNCTION WHICH 
PRODUCT OF TWO SECOND ORDER FILTER SECTIONS 


THE SIMULATION 


Y(Z) 


DN213(Z) 


ме ap кә аә мә = = = 


00213(2) 


IS PERFORMED OVER A RANGE OF DIFFERENT 


DN223(Z) 


DD223(Z) 


IS THE 


INPUT 


FREQUENCIES ABOUT THE TARGET CENTER FREQUENCY OF 600 HZ 


#32200020 
52200068 
*S2200050 
%52200050 
%52200060 
“52200008 
%52200080 
* 52200090 
%52200100 
*S2200110 
*S2200120 
*S2200130 
%52200140 
*S2200150 
*S2200160 
#52200170 
%52200180 


CHHHHHHHRHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH fe FH FH HERE RH HHH KE RHE REH HHR HES 2200 1 90 


C VARIABLE DECLARATIONS 


O O O 


INTEGER 


IMOUT 


REAL TX, INO, OUTO, F(9) 


REAL X1(3), X20 soy 103 eves) 


REAL SCALS1,SCALS2, SI NMAG, MOUT 


REAL DN213( 3), O00213(3), ON223( 3) , 00223(3),1, Fl ο... 
INPUT FREQUENCIES 


625 


F(1)z500. 
F(2 SS 
F(3)=590. 
F(4)=600. 
HUGUES. 
F(6)-700. 
F(7)= 
F(8)= 
F(9)= 


WRITE( 4,80) 
80 FORMAT(' 


&' FOURTH ORDER FILTER FREQUENCY RESPONSE',/, 
&' (CASCADED SECOND ORDER SECTIONS)',///) 
FIRST SECOND ORDER STAGE COEFFICIENTS 


PROGRAM S22F OUTPUT',//, 


DN213(3)=1. 
DN213(2)=-1.719875 
DN213(1)=1.001585 

D0213(3)=1. 
DD213(2)=-1.81555 
DD213(1)=0.990601 


81 FORMAT(' 


ӘС EDITUS 
&' 


&' ',£l ο ET EKG, ITI TECO aT 
SECOND SECOND ORDER STAGE COEFFICIENTS 


DN223(3)=1. 
DN223(2)=-1.877805 


ы! Е14,6,! 


PRINT FIRST STAGE TRANSFER FUNCTION 
МЕІТЕ(4,81)0М213(3),0М213(2),0М213(1),00213(3),00213(2),00213(1) 
FIRST STAGE TRANSFER FUNCTION (2920 EQUIVALENT)',//, 
2%%-1 ы !,6Е14,6,! 2%%-2! //, 
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52200200 
52200210 
52200220 
52200230 
52200240 
52200250 
52200260 
52200270 
52200280 
52200290 
52200300 
52200310 
52200320 
52200330 
52200340 
52200350 
52200360 
52200370 
52200380 
52200390 
52200400 
52200410 
52200420 
52200530 
S2200440 
S2200450 
S2200460 
S2200470 
52200480 
52200490 
52200500 


' ,/ , 8220050 


52200520 
52200530 
52200540 
52200550 


ЕСЕ: 522Ғ ҒОКТКАМ А1 


DN223(1)-7 
00223(3)- 
00223(2)--1.8094Ш6 
DD223(1)=0.982544 

C PRINT SECOND STAGE TRANSFER FUNCTION 


0.998169 
1. 


Pelee mines >| 3), ONC23( 2), ON223{ 1), 00223(3),00223(2), 00223( 1) 


82 FORMAT(' SECOND STAGE TRANSFER FUNCTION (2920 EQUIVALENT) ' 
&' ',£€14.6,' + ',£14.6,' Z¥#-1 * ',E1h.6,' Z**-2',/, 


&' ',E1T4.6,' + ',E154.6,' 
C INITIALIZE VARIABLES 
И =5. 1975927 
SCALS1=0. 
SCALS2=0. 
C SAMPLE PERIOD = T = 
4192 ,/6. m 
C COMPUTE SCALE SUM FOR STAGES TO LIMIT 
8 DO 6 K=1,3 
SCALS1=SCALS1+ABS( 0N213({ 
SCALS1=SCALS1+ABS( DD213( 
SCALS2=SCALS2+ABS( DN223{ 
SCALS2=SCALS2+ABS( 00223 ( 
6 CONTINUE 
C ENSURE SCALE.SUM FACTORS WILL LIMIT OUTPUT TO LESS THAN ONE 
SCALS1=SCALS1+1.E-6 
SCALS2=SCALS2+1.E-6 
C COMPUTE SIMULATED INPUT MAGNITUDE LIMIT 
5 | ММАС-1./(5СА1.51%5СА152) 
C PRINT STAGE SCALE SUMS AND (INPUT MAGNITUDE LIMIT 
WRITE(4,85)SCALS1, SCALS2,SINMAG 
85 FORMAT(//,' SCALE FACTORS AND INPUT MAGNITUDE LIMIT',//, 
&' FIRST STAGE SCALE SUM = , E14. = 
&' SECOND STAGE SCALE SUM = ',E14. 6, ym 
&' INPUT AMPLITUDE LIMITED TO */- ',E14.6, ///) 
WRITE( 4, 86) 
86 FORMAT( 1!) 
C BEGIN SIMULATION FOR SPECIFIED FREQUENCIES GIVEN BY F(L) 
(С + ++ +++ ЗЕ HFF 
C ADJUST AS NECESSARY 
DO 20 L=1,6 
(+++ +++ +++ +++ 4F HF HF HF 4F 4F HF HF HF 4F HF HF HF HF HF ++ +++ + +++ 
C COMPUTE SIMULATION RUN INPUT CONSTANT FOR EACH FREQUENCY 
TWOPIF=2.*PI*F(L) 
C INITIALIZE STAGE INPUTS AND OUTPUTS 
IMOUT=0 
MOUT=0. 


Z**-1 + ' E14.6,' Z*#=2' ///) 


.1521152 X 10**-4 SECONDS 


INPUT AMPLITUDE 


|--1 
X1( 1) 
Х2(1) 
S 
Г) 


H H H Il 
O O O O ç 


2 D 
C PRINT SIMULATION HEADINGS 
WRITE(&4,98)F(L) 
98 FORMAT(' FILTER FREQUENCY RESPONSE FOR F = 


ου ο HZ 7) 
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247 
&! - == = = = = ә ше еш еш ә ез е см ез еш «в же еш еш еш ез еш ез же ша аш ше шө ше «в ша ше еш ке әм шм в ез еш ев ев ев еш ке шә ез еш «в еш әш ڪڪ‎ 


52200560 
52200570 
52200580 
52200590 
52200600 
52200610 
52200620 
52200630 
52200640 
52200650 
52200660 
52200670 
52200680 
52200690 
52200700 
52200710 
52200720 
52200730 
52200740 
52200750 
52200760 
52200770 
52200780 
52200790 
52200800 
52200810 
52200820 
52200830 
522008450 
52200850 
52200860 
52200870 
52200880 
52200890 
52200900 
52200910 
S2 200920 
52200930 
52200940 
52200950 
52200960 
52200970 
52200980 
52200990 
52201000 
52201010 
52201020 
52201030 
52201040 
52201050 
52201060 
52201070 
52201080 
52201090 


` 52201100 


FILE: S22F FORTRAN Al 
C WRITE(U,99) 
C 99 FORMAT( /, ' | TIME IN1 OUT 1-21N2 OUT? 


-82201110 
,4J]/) Se2010128 


C COMPUTE SIMULATED FILTER RESPONSE OVER INDICATED NUMBER OF SAMPLES (1)S2201130 


CHHHHHHHHHHHHHHHHHHHHHHHHH HHH HHH 


C ADJUST AS NECESSARY 
DO 10 1=1,2048 

Qd ded dde HF HF HF HF HF HF HF HF HF HF HF HF HF HHH 

C TX = TOTAL ELAPSED SAMPLE TIME 
TX=T*FLOAT( 1-1) 

C IN1 = X1(1) = FILTER FIRST STAGE INPUT VALUE (LIMITED BY SINMAG) 
X1(1)=SINMAG*SIN( TWOP I F#TX) 

C OUT1 = Y1(1) = 
Y1(1)2DN213(3)*X1(1)*DN213(2)*X1(2)*DN213(1)*X1(3)- 


& DD213(2)*Y1(2)-DD213(1)*Y1(3) 
X2(1)2Y1(1) 
C OUT2 = Y2(1) = SECOND STAGE OUTPUT = FILTER OUTPUT 
Y2(1)=DN223(3)*X2(1)+DN223(2)*X2(2)+DN223(1)*X2(3)- 
& DD223(2)*Y2(2)-DD223(1)*Y2(3) 


C PRINT PARAMETERS FOR EACH SIMULATION ITERATION 


C HH HH 4F HF HH HF HF 4F 4F 44 HF HF H4 HE HF HF HF HF HF HE 4F HF HH HF 4F 4F 4F HF HF 3F FH ¥ 


C κ Τε ОО ЛА ХИ КО el m 
C 100 КОКМАТ(1Х,!4,2Х,Н(ЁЕ10.3,2Х)) 

C USE THIS OUTPUT FORMAT FOR EASYPLOT ROUTINE 
с. WRITE(&4,100)TX,X1(1),Y2(1) 

C 100 FORMAT(1X,3(F15.8,2X)) 


CHH HHHH HHH H HF HF HF HF HF HF HF HF E HE HF HF 3¢ HF HF HF HF HF HF HF HF HF HF HF 3 


C REMEMBER MAXIMUM AMPLITUDE IN EACH FREQUENCY SIMULATION TRIAL 
IF (ABS(Y2(1))-MOUT) 11,11,14 
14 MOUT=ABS(Y2(1)) 
| MOUT= | 
C PERFORM SIMULATION SHIFT DELAY 
11 DO 15 J22,3,1 ' 


15 CONTINUE 
10 CONTINUE 
C PRINT MAXIMUM OUTPUT AMPLITUDE FOR EACH FREQUENCY SIMULATION RUN 
WRITE(4,89)MOUT, IMOUT 


89 FORMAT( ' MAXIMUM OUTPUT AMPLITUDE = ',F15.8,/, 
&' THIS OCCURRED AT SIMULATION ITERATION /,15,///) 
20 CONTINUE 
STOP 
END 
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FIRST STAGE OUTPUT = IN2 = X2(1) = SECOND STAGE INPUT 


92201140 
52201150 
S2201160 
S2201170 
S2201180 
S2201190 
S2201200 
S2201210 
52201220. 
52201228 
52201240 
S2201250 
S2201260 
S2201270 
S2201280 
52201828 
S2201 300 
S2201310 
S2201320 
52201330 
52201340 
52201350 
S2201 360 
52201370 
52201380 
52201529 
52201400 
52201410 
52201420 
52201430 
S2201440 
52201450 
52201460 
52201470 
52201480 
52201490 
S2201500 
S2201510 
S2201520 
S2201530 
S2201540 
S2201550 


PROGRAM S22F OUTPUT 


FOURTH ORDER FILTER FREQUENCY RESPONSE 
(CASCADED SECOND ORDER SECTIONS) 


FIRST STAGE TRANSFER FUNCTION (2920 EQUIVALENT) 
О.1ОООООЕ+01 + -0.1740988bE*01 Z**-1 + ОЛОО БОЕО Z**-2 


ШШОӨСОООПЕЗОІ % -0.181555ЕҒ01 2%%-1%  0.990601E-*00 Z**-2 


SECOND STAGE TRANSFER FUNCTION (2920 EQUIVALENT) 
NEIUSOODETO!1 + -0.187780Е%01 2%%-1 - 0.998169E+00 Z**=2 


ENUUDDOEFOT +  -0.1809455E*01 Z**-1 - 0.982544 E+00 2%%-2 


SCALE FACTORS AND INPUT MAGNITUDE LIMIT 
FIRST STAGE SCALE SUM = O: (9516E OI 


SECOND STAGE SCALE SUM = ο ποσο οσο 
INPUT AMPLITUDE LIMITED TO +/- 0.172558E-01 
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FILTER FREQUENCY RESPONSE FOR 


MAXIMUM OUTPUT AMPLITUDE = 
THIS OCCURRED AT SIMULATION 


FILTER FREQUENCY RESPONSE FOR 


MAXIMUM OUTPUT AMPLITUDE = 
THIS OCCURRED AT SIMULATION 


FILTER FREQUENCY RESPONSE FOR 


MAXIMUM OUTPUT AMPLITUDE = 
THIS OCCURRED AT SIMULATION 


FILTER FREQUENCY RESPONSE FOR 


MAXIMUM OUTPUT AMPLITUDE = 
THIS OCCURRED AT SIMULATION 


FILTER FREQUENCY RESPONSE FOR 


MAXIMUM OUTPUT AMPLITUDE = 
THIS OCCURRED AT SIMULATION 


FILTER FREQUENCY RESPONSE FOR 


MAXIMUM OUTPUT AMPLITUDE = 
THIS OCCURRED AT SIMULATION 


F = 200, HZ 


ο. 10085225 
ITERATION 180 


F = 5/5. HZ 


1.59343243 
„ITERATION 915 


F = 2591. ΠΕ 


1.62147427 
ITERATION 500 


F = 600. HZ 


0.89969766 
ITERATION 284 


Ro 6e5 ul 


0.30753510 
| TERAT ION 185 


F = 700. HZ 


0.07697707 
ITERATION 150 


180 


ШІБЕ: 522ҒС ҒОКТКАМ А1 


(G HE HE HF HF HEHEH HEHHE HE HE HE H HE HE HF HF HF HF ¢ HF HF HE HE HF HE HE HE HE HE HE HF HF HE HF HF HF HF HF HE HE HE HF HF HF HF HE HE HE HE HE HE HE HE HE HE HE HF HF FF HE HE ¥ + + + + + + + S22000 10 


THIS PROGRAM SIMULATES THE EXECUTION OF A 2920 PROGRAM 
FOR A 600 HZ BANDPASS FILTER TRANSFER FUNCTION WHICH IS THE 
PRODUCT OF TWO SECOND ORDER FILTER SECTIONS 


Y (2) DN213(Z) DN223(Z) 
X 
X(Z) 00213(2) 00223(2) 
THE SIMULATION IS PERFORMED OVER A RANGE OF DIFFERENT INPUT 
FREQUENCIES ABOUT THE TARGET CENTER FREQUENCY OF 600 HZ. 


AFTER SIMULATION THE FREQUENCY RESPONSE IS PLOTTED FOR 
GRAPHICAL REVIEW. 


ООО ООООЭОС«ООООСОС«ОСОСОСОСО 


252200020 
752200030 
*S2200040 
*S2200050 
%52200060 
noe 200070 
*S2200080 
%52200090 
*S2200100 
"S2200110 
*S2200120 
* S2200130 
*S2200140 
"S2200150 


CHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHS 2 2 0 01 60 


C VARIABLE DECLARATIONS 
. INTEGER IMOUT 
REAL TX, F(9) 
REAL NUM( 1024 ) 
REAL IN(1024) 
REAL OUT(1024) 
REAL Х1(3),Х2(3),Ү1(3),Ү2(3) 
REAL SCALS1, SCALS2, SINMAG, MOUT 
REAL DN213(3),0D213(3),0N223(3),DD223(3), T, PI, TWOPIF 
C INPUT FREQUENCIES 


O O O O O O O O 


WRITE(4, 80) 
80 FORMAT('FOURTH ORDER FILTER FREQUENCY RESPONSE! , /, 
&' (CASCADED SECOND ORDER SECTIONS)! ,//) 
C FIRST SECOND ORDER STAGE COEFFICIENTS 
DN213(3)=1. 
DN213(2)=-1. 749875 
DN213(1)21.001585 
ШӘРІЗ(3)-1. 
DD213(2)2-1.81555 
DD213(1)20.990601 
C PRINT FIRST STAGE TRANSFER FUNCTION 
WRITE(4,81)0N213(3),0N213(2),0N213(1),00213(3),00213(2) ,00213( 
81 FORMAT('FIRST STAGE TRANSFER FUNCTION (2920 EQUIVALENT)',//, 
%Е14.6,! ы !,Е1Ц4,6,! 7%%-1 4 !,Е1Ц,6,! 7%%-2! //, 
& еэ еэ еэ сэ ею еэ еэ аю ею еэ еэ еэ ею еэ еэ еэ ез шэ ею ев еэ шэ еэ ею еэ еэ еэ еэ еэ еэ еэ cm cm Gm “е «о шә са өш αὶ ею ча ча өз «ы өз «ы Әә ew Әә ӘӘ ӘӘ ӘӘ ӘӘ ӘӘ =з =з =з =з =з 
&E14.6,' * ',E14.6,' Z**-1 * ',E1h.6,' z**-2',///) 
C SECOND SECOND ORDER STAGE COEFFICIENTS 
0М223(3)-1. 
0М223(2)--1.877805 
DN223(1)20,998169 


181 


1) 


S2200170 
$2200180 
$2200190 
52200200 
S2200210 
S2200220 
S2200230 
S2200240 
52200250 
52200260 
58200270 
52200280 
S2200290 
S2200300 
S2200310 
S2200320 
S2200330 
52200340 
52200350. 
52200360 
52200370 
52200380 
52200390 
52200400 
52200410 
52200420 
52200550 
S2200440 
S2200450 
S2200460 
52200470 
52200880 
522001890 
‚ 52200500 
52200510 
52200520 
52200530 
52200540 
52200550 


ЕЕ: 52266 FORTRAN Al 


ο ο ο τι 
00223(2)--1.809446 
0D223(1)=0.982544 

C PRINT SECOND STAGE TRANSFER FUNCTION 


WRITE(4,82)DN228(3), DN223(2); DN223(1) , DD223( 3) TOE 5 eee D 


82 FORMAT('SECOND STAGE TRANSFER FUNCTION (2920 EQUIVALENT)',//, 
8652 ντε. 
& ese чыз аз < чыз чыз UD b eww eww ew «Б ою ар ар ар еә هه هه‎ чыз чыз чш чыз чыз чыз чыз чыз чыз чыз чыз чыз ده‎ чыз чыз чыз чыз чыз чыз чыз чыз чыз чыз чыз чыз «Щр ew س س‎ P s s s س‎ 
6," 2<2 


&E14.6,' + ',E14.6,' Z##-1 + ', £14 
t 


&ET14.6,' * ',E150.6,' Z**-1 + ' E14 
C INITIALIZE VARIABLES 
P1=3.1415927 
SCALS1=0. 
SCALS2=0. 


С SAMPLE PERIOD = T = 1.1521152 X 10%%-ң SECONDS 


T24.*192./6.666E6 | 
C COMPUTE SCALE SUM FOR STAGES TO LIMIT 
DO 6 K=1,3 
. SCALS1-SCALS1*ABS(DN213(K 
SCALS1=SCALS1+ABS( DD213( 
SCALS2=SCALS2+ABS( DN223 ( 
SCALS2=SCALS2+ABS( DD223( 
6 CONTINUE 


ххх 
a a w v 
a s ` eee 


C ENSURE SCALE SUM FACTORS WILL LIMIT OUTPUT TO LESS THAN ONE 


SCALS1=SCALS1+1.E76 
5СА(52-5СА152%1.Е-6 


INPUT AMPLITUDE 


C COMPUTE SIMULATED INPUT MAGNITUOE LIMIT 


SINMAG=1./( SCALS1*SCALS2 ) 


C PRINT STAGE SCALE SUMS AND INPUT MAGNITUDE LIMIT 


WRITE(4,85)SCALS1, SCALS2, SINMAG 


85 FORMAT(//,'SCALE FACTORS AND INPUT MAGNITUDE LIMIT',//, 


&'FIRST STAGE SCALE SUM = ',E14.6,/, 


&'SECOND STAGE SCALE SUM = ',E14.6 
&' INPUT AMPLITUDE LIMITED TO */- ' 


амда 4€ айақ сабайды ды d edd ЗЕ ЗЕ ЗЕЗЕ ЗЕ ЕТЕ Te E 


C ADJUST AS NECESSARY 
DO 20 L=1,1 
C HE H H He H HEH HE HE HE HE HE HE HE HE HE HE HE HE HE HE HF HE HF HE HERE RE HERE E 


C COMPUTE SIMULATION RUN INPUT CONSTANT FOR EACH FREQUENCY 


. TWOP IE acc ΡΕ] 
C INITIALIZE STAGE INPUTS AND OUTPUTS 
| MOUT-O 
MOUT=0. 
DO 5 | 
( 
( 


X1 
X2 


— w мм s — 
l H H I 
O O O O c> 


Y2( | 
5 CONTINUE 
C PRINT SIMULATION HEADINGS 
WRITE(4,98)F(L) 


98 FORMAT(///,'FILTER FREQUENCY RESPONSE FOR F = 
WRITE( 4,99) 
99 FORMAT(/,' | Т1МЕ 1 М1 OUT 1= lita 


C COMPUTE SIMULATED FILTER RESPONSE OVER 


22 
»E14.6,///) 
C BEGIN SIMULATION FOR SPECIFIED FREQUENCIES GIVEN BY F(L) 
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. HZ 


орто у 
INDICATED NUMBER OF SAMPLES (1)S2201100 


52200560 
52200570 
52200580 
52200590 
52200600 
52200610 
52200620 
52200630 
52200640 
52200650 
52200660 
52200670 
52200680 
52200690 
52200700 
52200710 
52200720 
52200730 
52200740 
52200750 
52200760 
52200770 
52200780 
52200790 
52200800 
52200810 
52200820 
52200830 
52200840 
52200850 
52200860 
52200870 
52200880 
52200890 
52200900 
52200910 
52200920 
52200930 
522009450 
52200950 
52200960 
52200970 
52200980 
52200990 
52201000 
52201010 
52201020 
52201030 
52201050 
52201920 
52201060 
52201070 
52201080 
52201090 


ESILE: S22FG 


FORTRAN Al 


(GC HHH HH EE Ee EEE HE EE EEE HEHEHE HH HEH 


C ADJUST AS NECESSARY 
00 0 1=1, 1024 
(J E HH ν.μ κκ. μ.μ. HF HF 4¢ HF 3 4F 4F 4¢ H 
C TX = TOTAL ELAPSED SAMPLE TIME 
TX=T*FLOAT( 1-1) 
С IN1 = X1(1) = FILTER FIRST STAGE INPUT VALUE (LIMITED BY SINMAG) 
X1(1)2SINMAG*SIN( TWOPIF*TX) 
NUM( | )=FLOAT(! ) 
ІМ(І)-Х1(1) 
ШИ ШІІ - ҮТ(1) = FIRST STAGE OUTPUT = IN2 = X2(1) = SECOND STAGE INPUT 
Y1(1)=DN213(3)*%*X1(1)+DN213(2)*X1(2)+DN213(1)%X1(35)- 
& ΡΟ νο 0002) -DD213( 1)*Y 1( 3.) 
KP 1 )=Y 301) 
C OUT2 = Y2(1) = SECOND STAGE OUTPUT = FILTER OUTPUT 
Y2(1)=DN223(3)*X2(1)+DN223(2) *X2(2)+DN223(1)*X2(3)>- 
& DB223 2) 721 2 ) -DD223( 1) *Y2(3) 
. oUr 2а) 
С PRINT PARAMETERS FOR EACH SIMULATION ITERATION 
(J EH 4 HF ¥ HF HF HF HF HF HF HF HF ¢ 3F HF HF HF HF HF HF HF HE HF HF HF HF 4F 4F 3 4F 3F 4 3 3¢ ¥ 
С WRITE(4, 100)1,TX,X1(1),X2(1),¥2(1) 
C 100 FORMAT( 1X,15,2X,5(F10.3,2X)) 
C USE THIS OUTPUT FORMAT FOR EASYPLOT ROUTINE 
C WRITE(4, 100) TX,X1(1),Y2(1) 
C 100 HORMAT( 1X,3(f15-6, 2X) ) 
(J HEH HF HE HFH 4F HF HF HF H HF HF HF HH 4F HF HF HF ¢ HF HF HF HF H HF HF HF 3F HF HF HF ¥ 3 ¥ 
C REMEMBER MAXIMUM AMPLITUDE IN EACH FREQUENCY SIMULATION TRIAL 
IF (ABS(Y2(1))-MOUT) 11,11,14 
14 MOUT-ABS(Y2(1)) 
| MOUT- I 
C PERFORM SIMULATION SHIFT DELAY 
11 DOMIS J=273;1 
ES SINN) 
X1(5-J)=X1(H -J) 
Y2(5-J)=Y2(4-J) 
E Lm 
{5 CONTINUE 
10 CONTINUE | 
C PRINT MAXIMUM OUTPUT AMPLITUDE FOR EACH FREQUENCY SIMULATION RUN 
WRITE(4,89)F(L),MOUT, IMOUT 
89 FORMAT(' MAXIMUM OUTPUT AMPLITUDE FOR ',F5.0,' HZ = ',F15.8,/, 
&' THIS OCCURRED AT SIMULATION ITERATION ', 15) 
20 CONTINUE 
С < < < < «о < < «о < < < < «в «о «ы «ы «ы «ы «ы «в «в иы сы «ы и» «е ис «ы «ы “с «ы «в ы «о «ы «о «о «о «ы «ы «ы «ы «ы «ы «ы «в «в «вы ев ев «ы «ы «ы «ы «ы «в «в «о «ы «в «е «в «в «ы ав ав аз ез ез ев 
C GRAPHICS PARAMETERS FOR FREQUENCY RESPONSE OUTPUT VS INPUT 
G ———————. |... 
CALL LRGBUF 
С CALL TEK618 
CALL COMPRS 
Uis SETUP THE PLOTTING AREA 
CALE PAGE (11/20, 6.5) 
CALL NOBRDR 
CALL AREA2D(9.0,6.5) 
"E LABEL THE X & Y AXES 


CALL XNAME('ITERAT!ON (N) Š',100) 
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52201110 
22201120 
52201130 
52201140 
S2201150 
S2201160 
52201170 
52201180 
52201190 
52201200 
52201210 
52201220 
52201230 
S2201240 
52201250 
S2201260 
52201270 
52201280 
52201290 
52201300 
S2201310 
S2201320 
S2201330 
S2201340 
52201350 
S2201360 
S2201370 
S2201380 
S2201390 
522011400 
52201410 
52201420 
522011430 
52201480 
52201450 
522014560 
52201470 
52201480 
52201490 
S2201500 
S2201510 
S2201520 
S22015 0 
S2201540 
S2201550 
S2201560 
S2201570 
S2201 580 
S2201 590 
S2201600 
S2201610 
S2201620 
52201630 
52201640 
52201650 


ЕЕЕ 


S22FG FORTRAN Al 


CALL YNAME( 'MAGNITUDES! , 100) 

CALL HEADIN ('DIGITAL FILTER FREQUENCY RESPONSES',100,1.6,3) 
CALL HEADIN ('SIMULATION INPUT/OUTPUT VS ITERATIONS',100,1.,3) 
CALL HEADIN ('FREQUENCY = 700 HZS$',100,1.,3) 

DEFINE THE AXES 

CALL GRAF(0., 64., 1024., =2.0,.5,2.0) 

DRAW THE INPUT CURVE 
CALL THKCRV(0.01) 
CALL MARKER( 15) 
CALL CURVE({ NUM, IN, 1024,0) 

DRAW THE OUTPUT CURVE 
CALL THKCRV(0.01) 
CALL MARKER( 15) 
CALL CURVE{ NUM, OUT, 1024,0) 

TERMINATE THIS PLOT 
CALL ENDPL(0O) 
CALL DONEPL 

STOP 

END 
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52201660 
52201670 
52201680 
52201690 
52201700 
52201710 
52201720 
S2201730 
S2201740 
52201188 
52201760 
52201108 
52201780 
52201790 
52201800 
52201810 
52201820 
52201830 
52201840 


MAGNITUDE 


MAGN] TUDE 


DIGITAL FILTER FREQUENCY RESPONSE 
SIMULATION INPUT/QUTPUT VS ITERHTION 
FKCOUENCY - S00 HZ 


2.0 


нн ŘS a S S 
0.0 64.0 128.0 192.0 246.0 320.0 354.09 449.0 512.0 576,0 640.0 704.0 764.0 832.0 64n.0 900.0 1024.0 
LTERATION IH) 


[lol j ΤΊΣΙ I I lli ye SPONSE 
SIMULATION IHPUT/OUTUUT VŠ ITERñTION 
FREQUENCY - 575 HZ 


1 


0.0 0.5 1.0 


ο; 


5 C 
——— | (( 





| 


нта о —— т ТІ ۆۆ‎ πι 
0.0 64.0 128.0 192.0 256.0 320.0 384.0 418.0 SI2.0 S76.0 640.0 7u4.0 760.0 832.0 8з5.0 950.0 1024.0 
І1ЕКАТІОН (UN I 
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DIGITAL FILTER FREQUENCY RESPONSE 
SIMULATION INPUT/OUTFUL VS ITERATION 
FREQuENCY - 590.825 n2 


0.5 





MAGNITUCE 
0.0 





coo 


-..0 





o 


|| 


το τπτ πρ τπτ πο рст СІ T Y T о раан!‏ و ي 
64u.0 704.0 764 0 832.0 896.0 960.0 1024.0‏ 576.0 512.0 148.0 384.0 320.0 256.0 192.0 128.0 64.0 0.0 
lIUKB ION (HI‏ 


DIGITAL FILTER FREOUF NC ος 
SIMULATION INPUT/UUTPUT Vo LTERATION 
PROUUENCY = 600 HZ 


2.0 


1:5 


zB 





0:5 





MRGNITUDE 
0.0 Бо 
---- ger 


e 
. 


T oy Le Ол. ТГ А 1 T I T — ee ee T T I | 
0.0 64.0 128.0 192.0 246.0 320.0 3104.0 448.0 512.0 575.0 ьо 0 7040 705.0 8352.0 896.0 960.0 1024.0 
ЛЕКА (NI 
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MRN i TUDE 


MAGNITUDE 


2.0 


1-5 


.0 


1 


*1.D 


=2.0 


20 


1-5 


"2.0 


БИЕ ТЕГЕ ЕШЛЕМІТ RESPONSE 
SIMULATION INPUT/UUTPUT VS ITERHTION 
FREQUENCY - 625 HZ 


we ΒΑ А Gw À Ú ! ! AMA ҰЙДАЙДАЛДАДДАДД ҮЙДЕ 


Ec occ cc. (aa oo eel a) Lea —3À 
0.0 64.0 128.0 192.0 2'6.0 320.0 3U4.0 444.0 512.0 S/b.0 E4u.0 704.0 768.0 YS2.0 896.0 960.0 1024 Q0 
IIURBÍfION (Ni 


ПТО ИИИ | REGUENEY  ГӘРСПІМӘ5Е 
SIMU ATION InPuT/^/0uTPuf VS ITERRITTUN 
FREDUUNUY - 700 HZ 


BENED TI. sTw UU re s rn 
U.O 64.0 128.0 192.0 296.0 3J0 O0 2940 418.0 512.0 575.0 &4U.0 704.0 7bu.0 832.0 896.0 950.0 1024 0 
ITERHÉION. (HI 
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Τι 


FILE: CTRANS2 FORTRAN Al 


(O E HE HE EE EEE EEE 4F HF HF HF e 9€ 9€ HF HF E HF HF E 9€ HE HF HF HF HF HF HF HF HF HF 9E ЭЕ ЗЕ ЗЕ HF HF HF HF HF HF HF HF HF HF 4F HF HF EE EE EEE Т ROOO 1 O 


APPENDIX | 


FORTRAN PROGRAM CTRANS2 


OF TWO SECOND ORDER POLYNOMIAL STAGES FOR 2920 


CO OOO oe 


THIS PROGRAM PERFORMS A TRANSFORMATION OF THE COEFFICIENTS 


IMPLEMENTATION 


*CTROOO20 
*CTROOO30 
*CTROOO4YO 
*CTROOO50 
“СТК00060 
*CTROOO70 
*CTROOO80 
*CTROOO090 
*CTROO100 


(Qo 33€ 9€ 9€ 4 9€ 9€ 9€ 9€ 9€ 9€ 9E 9€ 9€ HHH HHH 9€ 90 9E 9€ 9E 9€ 9E HF HF 9€ HF HF HF 9E 9€ ЗЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ + ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ 3F 9F 9F 3F 3F 3F 3F 3¢ 3F 3¢ 3F 3 HF O T ROO110 


C VARIABLE DECLARAT IONS 


REAL N2(2,3),02(2,3),N2TX, D2TX, TRIAL, TWOVAL, FKM1 


REAL N28(2,3),028(2,3),N2P(2,3),02P(2,3) 
INTEGER N2T(2,3,14), 02T( 2,3, 14) 
INTEGER JM1,JX, KM1 
C ACTUAL FIRST STAGE COEFFICIENTS TO BE TRANSFORMED 
<  N2(1,3)=1. 
N2(1,2)=-1.7499 
N2(1,1)=1.0017 
D2(1,3)=1. 
D2(1,2)2-1.8156 
02(1,1)-0.99068 
C ACTUAL: SECOND STAGE COEFFICIENTS TO BE TRANSFORMED 
N2(2,3)=1. 
N2(2,2)=-1.8779 
N2(2,1)=0.99817 
02(2,3)=1. 
02(2,2)--1.8095 
02(2,1)-0.98255 
C INITIALIZE BINARY COEFFICIENT MATRIX 
DO 10 1=1,2 
DO 12 J=1 


D2T( I, 
14 CONTINUE 
12 CONT INUE 
10 CONTINUE 


C PERFORM COEFFICIENT TRANSFORMATION TO BINARY 2920 REPRESENTATION 


C NUMERATOR TERMS 
DO 20 l=1,2 
DO 22 J=1,3 


"οσα co) 
222 


ces , 
N2B( l,J) 


N2TX-N2TX-1. 
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СТК00120 
CTROO130 
CTROO140 
CTROO150 
СТК00160 
СТК00170 
CTROO180 
CTROO190 
CTROO200 
CTROO210 
CTROO220 
CTROO230 
СТК002450 
СТК00250 
СТК00260 
CTROO270 
CTROO280 
CTROO290 
CTROO300 
CTROO310 
CTROO320 
CTROO330 
CTROO340 
CTROO350 
CTROO360 
CTROO370 
CTROO380 
CTROO390 
CTROOALOO 
CTROO410 
CTROO420 
CTROO430 
ΟΤΠΟΟΒ 80Ο 
CTROO450 
CTROOA60 
CTROOA70 
CTROO48O 
СТК00590 
CTROO500 
CTROO510 
CTROO520 
CTROO530 
CTROO540 
CTROO550 


FILE: CTRANS2 


7 МКІТЕ( 4,810) 


ҒОКТКАМ А1 
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1) 


221 DO 24 K=2,14 
FKM1=FLOAT( K-1) 
TWOVAL=1./(2. **FKM1) 
TRIALZN2TX-TWOVAL 
IF (TRIAL) 25,242,243 
242 N2T(1,J,K)=1 
N2B(1,J)zN2B( I, J) *TWOVAL 
GO TO 20 
243 NO]( |; J К)-1 
N2B(1,J)=N2B(1,J)+TWOVAL 
N2TX=TRIAL 
COMTO ου 
25 ІР (К.Еа.1Ц) NPO 0 | J K)=0 
24 CONTINUE 
22 CONTINUE 
20 CONTINUE 
C DENOMINATOR TERMS 
DO 1z1,2 
50 32 2-1,3 
D2TX= ABS(D2(1,J)) 
IF (D2TX-1.0) 321,322,323 
322 πι ο 115] 
D2B(1,J)=1.0 
GO TO 32 
323 О2Т(1, l). 
D2B(1,J)=1. 
D2TX-D2TX-1 
321 DO 34 K= 2,14 
FKM1=FLOAT(K-1) 
TWOVAL=1./(2. **FKM1 ) 
TRIAL=D2TX-TWOVAL 
IFI CIRIAD) 95. 342 τη 
342 D21T(1,J,K)21 
D2B(1,J)2D2B( 1, J) *TWOVAL 
GO TO 30 
343 ретт. ЈИ 
D2B(1,J)2D2B(1,J)*TWOVAL 
D2TX=TRIAL 
GO TO 34 
35 IF (K.EQ.14) D2T(1,J,K)=0 
34 CONTINUE 
32 CONTINUE 
30 CONTINUE 
C PRINT OUTPUT HEADING 
WRITE(4,80) 
80 FORMAT(' PROGRAM CTRANS2 OUTPUT',//, 
&' FOURTH ORDER DIGITAL FILTER 2920 BINARY EQUIVALENTS',/, 
&' (TWO CASCADED SECOND ORDER SECTIONS)! ,///) 
C PRINT FIRST STAGE TRANSFER FUNCTION 
WRITE(4,81)N2(1,3),N2(1,2),N2(1,1),D2(1,3),D2(1,2),D2(1, 
81 FORMAT(' FIRST STAGE TRANSFER FUNCTION',//, 
& MEIT 6: to EIL ΕΤ ΤΈΙΤ 6, Z**=2' /, 
& е» чь сь Am GR GR ub «с «ы UD GR «πὸ um um GP GR GR GR GR um ex G GR GR GR GR em GP ыы «в «ы «в Um απὸ GEB «πὸ «πὶ «πὸ «πὶ «πὶ «πὶ «πὶ «з «з «з «з «з «ш «ш «з «в «е «ы «в «в «ы «в «ы 
&' §' £€14.6,' * ',E14.6,' Z**-1 + ',E14.6,' Z**-2'!) 


CTROO560 
СТК00570 
CTROO580 
CTR00590 
CTR00600 
CTR00610 
CTR00620 
CTR00630 
CTROO640 
CTROO650 
CTROO660 
CTROO670 
CTROO680 
CTROO690 
CTROO 7/00 
CTROO710 
CTROO/20 
CTROO/30 
CTROO 740 
CTROO750 
CTROO 7/60 
CTROO770 
CTROO 780 
CTROO 790 
CTROOS800 
CTROO810 
CTROO820 
CTROO830 
CTROOS840 
СТК00850 
СТК00860 
СТК00870 
СТК00880 
СТК00890 
CTROO900 
СТК00910 
CTROO920 
CTROOS930 
СТК0О0940 
СТК00950 
CTROO960 
CTROO970 
СТК00980 
CTROO990 
CTRO1000 
CTRO1010 
CTRO1020 
CTRO1030 
CTRO1040 
CTRO1050 
CTRO1060 
CTRO1070 
CTRO1080 
CTRO1090 
CTRO1100 


FILE: CTRANS2 FORTRAN AI 


810 FORMAT(///, | BINARY REPRESENTATION OF NUMERATOR COEFFICIENTS',//, CTRO1110 
&' ROO RO1 RO2 RO3 ROY ROS ROG ROZ ROB RO9 R10 R11 R12 R13! CTRO1120 


“,/) СТЕ01130 

ПО 811 51,3 CTRO1140 
JX=4 -J CTRO1150 
N2P(1,JX)=N2B(1,JX)/ABS(N2(1,JX)) CTRO1160 
WRITE(4,812)JX,N2(1, JX) CTR01170 

812 FORMAT(' N2(1,',11,') = ',F9.6) CTRO1180 
WRITE(4, 814)N2T(1, IX, 1 m JX; 2),NAT(T, JX, ¥) ICI, JX A), CTRO1190 

&N2T( 1, JX,5),N2T(1,JX,6), N2T(1, X, τσ) Αρτ ο 5, ΕΙΝ... 9), CTRO1200 
&N2T(1,JX,10), N2T(1,JX, 11), N2T( 1, JX, 12), N2T(1, JX, 13)9 N2T(1, JX, 14), CTRO1210 
&N2B( 1, JX), N2P( 1, JX) CTRO1220 
814 FORMAT(9X,14(11,3X),/,' ABSOLUTE BINARY EQUIVALENT = ' CTRO1230 
&,F9.6,/,' (THIS IS ',F9.6,' OF THE ACTUAL VALUE)  ; 7) CTRO1240 
811 CONTINUE , CTRO1250 
WRITE(4, 815) CTRO1260 

815 FORMAT(//, ' BINARY REPRESENTATION OF DENOMINATOR COEFFICIENTS',//,CTRO1270 
&' ROO RO1 RO2 ВОЗ ROY ROS ROG RO7 RO8 RO9 R1O R11 R12 R13' CTRO1280 
&,/) CTRO1290 

DO 816 J=173 CTRO1300 
JXsisJ CTRO1310 
D2P(1,JX)2D2B( 1, JX)/ABS(D2(1,JX)) CTRO1320 
WRITE(4,817)JX,02(1,JX) CTRO1330 

817 FORMAT(' D2(1, 11,  ) SALA E9. 6) CTRO1340 
WRITE(1,819)D2T(1,JX,1),D2T(1,JX,2),D2T(1,JX,3),D2T(1,JX,l), CTR01350 
&D2T(1,JX,5),D021(1,JX, 6), D2T(1, JX, 7), D21(1,JX, 8) Oe) ee CTRO1360 
&D2T(1,JX,10),D2T(1,JX,11),D2T(1,JX, 12), D2T(1,JX,13), D2T( 1; JX, 15h), COHDEBEBISM 
&D2B(1,JX),D2P( 1, JX) CTRO1380 
819 FORMAT(9X,14(11,3X),/,' ABSOLUTE BINARY EQUIVALENT = ' CTRO1390 
&,F9.6,/,' (THIS |S ',F9.6,° OF THE ACTUAL VALUE)' ,// ) CTRO1400 
816 CONTINUE CTRO1410 
C PRINT SECOND STAGE TRANSFER FUNCTION CTRO1420 
WRITE( 4, 82)N2(2,3),N2( 2,2), N2(2, 1), D2 223) 202022) Det 2, 1) CTRO1430 

82 FORMAT('1',' SECOND STAGE TRANSFER FUNCTION',//, CTRO1440 
&E14.6,' + ',£14.6,' Ze*-1 + ' ЕТ О АБЕ СБУ CTRO1450 

| ---------------------------------------------------------- οσα. 
SE14.6,' + *,614.6,' Z¥*-1 + ΕἾΤ 6. στο... CTRO1470 
WRITE(4, 820) CTRO1480 

820 FORMAT(//, ' BINARY REPRESENTATION OF NUMERATOR COEFFICIENTS',//,  CTRO1&490 
&' ROO RO1 RO2 RO3 ROU RO5 RO6 RO7 RO8 RO9 R1O R11 R12 R13! CTRO1500 

Ὃν CTRO1510 

DO 821 24-103 CTRO1520 
JX=4-J CTRO1530 
N2P(2,JX)=N2B(2,JX)/ABS(N2(2, UX) ) CTRO1540 
WRITE(4, 822 )JX, N2(1,JX) CTRO1550 

822 ЕОВМАТ( NAA TILT) = 17.6) CTRO1560 
WRITE(4, θοΙ)ΝΟΤίο, «ΙΧ, 1),  Νδτίο οκ ο) Ντ ο ο ο ΙΙ, CTRO1570 
&N2T(2,JX,5), ,N2T(2,JX, 6}, ,N2T(2,JX,7),N2T(2,JX,8), N2T(2, JX 9), CTR01580 
&N2T(2,J)X,10), N2T(2,JX, 11), N2T(2,JX, 12), N2T(2,JX, 13), NOT(2,JX, 1h), CTR01590 
&N2B(2,JX),N2P(2,JX) CTRO1600 
824 FORMAT(9X,14(11,3X),/,' ABSOLUTE BINARY EQUIVALENT = ' CTRO1610 
&,F9.6,/,' (THIS IS ',F9.6,' OF THE ACTUAL VALUE )'! ,//) CTR01620 
821 CONTINUE CTR01630 
WRITE(4, 825) CTRO1640 


825 FORMAT(/,' BINARY REPRESENTATION OF DENOMINATOR COEFFICIENTS',//, CTRO1650 
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FILE: CTRANS2 FORTRAN Al 


&' ROO RO1 RO2-RO3 ROY ROS ROG ROT ROB ROO RIO R11 R12 R13' CTRO1660 
&,/) CTROTG7O 

DO 826 J=1,3 CTRO1680 
JX=4-J CTRO 1690 

БӘР Ux zpeB(a,JX)/ABS(D2(2,JX) ) CTRO1700 
WRITE(4,827)JX,D2(2,JX) CTRO1710 

827 БӘБИЕЕСІТӘ2(2,1:11,!) = ',F9.6) CTRO1720 
МЕЙЕР Dente, JX,2),D21(2,UX,3),02T(2,JX,4), CTRO1730 
eee os Delle Т 25! 02712 JX,7),D2T(2,JX,8),D2T(2,JX,9), СТЕ01740 
coer 2. JX 10). D2T(2, JX, 11), 02T(2,JX, 12), D2T(2,JX,13),D2T(2,JX,14), CTR01750 
&D2B(2,JX),02P(2,JX) CTRO1760 
829 FORMAT( 9X, 14(11,3X),/,' ABSOLUTE BINARY EQUIVALENT = | СТВОТТТО 
БОЕСУ (this 1S ' F9 .6,' OF THE ACTUAL VALUE)',//) CTR01780 
826 CONTINUE CTR01790 
STOP CTR01800 

END | CTRO1810 


TOT 


PROGRAM CTRANS2 OUTPUT 


FOURTH ORDER DIGITAL FILTER 2920 BINARY EQUIVALENTS 
(TWO CASCADED SECOND ORDER SECTIONS) 


FIRST STAGE TRANSFER FUNCTION 
0.100000E*01 * -0.174990Е%01 7%%-1 + 0. 1001 /7O0E+0 2 7 


0.100000E*01 * -07181550Е 0172103 0. 990680E100 Z**-2 


BINARY REPRESENTATION OF NUMERATOR COEFFICIENTS 


ROO RO1 RO2 RO3 ROY ROS ROG ROT RO8 RO9 R10 R11 R12 R13 


N2(-1,3) = 1.000000 

1 0 0 0 0 0 0 0 0 0 0 0 0 0 
ABSOLUTE BINARY EQUIVALENT = 1.000000 
(THIS IS 1.000000 OF THE ACTUAL VALUE) 
N2(1,2) = -1.749900 

1 1 0 1 1 1 1 1 1 1 1 1 1 1 
ABSOLUTE BINARY EQUIVALENT = 1.749875 


(THIS IS 0.999986 OF THE ACTUAL VALUE) 


N2(1,1) = 1.001700 

1 0 0 0 0 0 0 0 0 0 1 1 0 1 
ABSOLUTE BINARY EQUIVALENT = 1.001585 
(THIS IS 0.999885 OF THE ACTUAL VALUE) 


BINARY REPRESENTATION OF DENOMINATOR COEFFICIENTS 
ROO RO1 RO2 RO3 ROLU ROS RO6 RO? RO8 RO9 RIO R11 R12 R13 


D2(1,3) = 1.000000 

zu) 0 0 0 0 0 0 0 0 0 0 0 0 0 
ABSOLUTE BINARY EQUIVALENT = 1.000000 
(THIS IS 1.000000 OF THE ACTUAL VALUE) 


D2(1,2) = =1.8 19600 

1 1 1 0 1 0 0 0 0 1 1 0 0 1 
ABSOLUTE BINARY EQUIVALENT = 1.815550 
(THIS IS 0.999972 OF THE ACTUAL VALUE) 


D2(1,1) = 0.990680 

0 1 1 1 1 1 1 0 1 1 0 0 1 1 
ABSOLUTE BINARY EQUIVALENT = 0.990601 
(THIS IS 0.999920 OF THE ACTUAL VALUE) 


198 


SECOND STAGE TRANSFER FUNCTION 


0.100000E*01 + -0.187790E+01 Z**-1 +  0.998170E*00 Z**-2 


ИЕООООЕҒОТ 5 -0.1809520Е%01 7%%-1 + n 62550E+00 Z**=2 


BINARY REPRESENTATION OF NUMERATOR COEFFICIENTS 
ROO RO1 RO2 RO3 RON RO5 RO6 RO7 ROS8 RO9 R10 R11 R12 R13 


N2(2,3) = 1.000000 

БҮ 950 0 (0 0 00 0 
ABSOLUTE BINARY EQUIVALENT = 1.000000 
(THIS IS 1.000000 OF THE ACTUAL VALUE) 


N2(2,2) = -1.749900 | 
1 1 БН 90700 с: 0 1 1 1 
ABSOLUTE BINARY EQUIVALENT = 1.877805 


(THIS IS 0.999949 OF THE ACTUAL VALUE) 


N2(2,1) = 1.001700 

0 1 1 1 1 1 1 1 1 1 0 0 0 1 
ABSOLUTE BINARY EQUIVALENT = 0.998169 
(THIS IS 0.999999 OF THE ACTUAL VALUE) 


BINARY REPRESENTATION OF DENOMINATOR COEFFICIENTS 
ROO RO1 RO2 RO3 ROH ROS ROG ROZ ROB RO9 R10 R11 R12 R13 


D2(2,3) = 1.000000 

ЖЕКЕ 050.0 0 ο ο O O 
ABSOLUTE BINARY EQUIVALENT = 1.000000 
(THIS IS 1.000000 OF THE ACTUAL VALUE) 


D2(2,2) = -1.809500 | 

ЕЕЕ 0-11 1 1 65 01 1 1 
ABSOLUTE BINARY EQUIVALENT = 1.809446 
(THIS IS 0.999970 OF THE ACTUAL VALUE) 


D2(2,1) = 0.982550 

0 1 1 1 1 1 0 1 1 1 0 0 0 1 
ABSOLUTE BINARY EQUIVALENT = 0.982544 
(THIS IS 0.999994 OF THE ACTUAL VALUE) 


IS 


FILE: FIRUE 


FORTRAN Al 


CH HH HH HE HE HF HF HE HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HHH HHH HH HHH HHH HE | RO0010 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 


C 


25 


30 
40 


APPENDIX J 


FORTRAN PROGRAM FIR4& 
ADAPTIVE TRANSVERSAL FILTER 


THIS PROGRAM WILL OBTAIN THE OPTIMAL FILTER WEIGHTS FOR THE FIR 
FILTER OF ORDER FOUR. THE ALGORITHM BEGINS WITH A TRIAL REGION 
(780,80) ҒОК EACH OF THE WEIGHTS AND DOES A SUCCESSIVE ITERATION 
OF THE ERROR FUNCTION WHILE TRANSFORMING THE WEIGHTS TO OPTIMAL 
VALUES. WHEN THE WEIGHTS CONVERGE TO OPTIMAL VALUES THEN THE 
ITERATION STOPS. THEN WE MAY TEST THE ADEQUACY OF THE WEIGHTS 
SO OBTAINED THROUGH SUBSEQUENT SIMULATION ІМ THE FORTRAN PROGRAM 
FIRGSIM WHICH FOLLOWS AS APPPENDIX К. 


REAL WS(4),WU(4),WL(4),R,JE 
INTEGER NTA, NPR, NAV, NV, IP 


WS(1!) IS THE STARTING GUESS 
М5(1)-.1 
WS(2)=1. 
WS(3)=1. 
WS(4)=1. 
WL(1) IS THE LOWER LIMIT FOR THE !'TH VARIABLE 
WU(1) IS THE UPPER LIMIT FOR THE I'TH VARIABLE 
WL(1)=-14. 
М0(1)-18. 
WL(2)=-14, 
WU(2)=14. 
WL(3)=-14. 
WU(3)=14. 
WL(4)=-14. 
WU(4)=14. 
A DESCRIPTION OF THE FOLLOWING PARAMETERS IS DISCUSSED IN BOXPLX 
R=9./13. 
NTA=1400 
NPR=100 
NAV=0 
NVzh 
| P=0 
PERFORM ITERATION ROUTINE FOR WEIGHT OPTIMIZATION 


CALL BOXPLX(NV,NAV,NPR,NTA,R,WS, IP, WU,WL, YMN, I ER) 

WRITE (6,25) 

FORMAT(1X,' OPTIMAL GAINS',/) 

DO 30 l=1,4 
WRITE(6,40)1,WS(1) 

FORMAT(1X, 'W(',12,' )= 

STOP 

END 


SETI 


*FIROOO20 
*FIROOO030 
*FIROOOAO 
*F I| R00050 
*FIROOO60 
*F I R00070 
*FIROOO80 
*FIROOO90 
*FIROO100 
*FIR00110 
#F I R00120 
*F I R00130 
“ҒІК00140 
ΣΕΙΠπΟΟΙ 
*F | ROOT 


HHH HHH HHH HHH HHH HHH HHH HHH HHH HHH HHH HHH HHH HHH HHH HHH HHH HHH HHH HH HHH HHH HHH HE | ROO 170 


FIROO180 
FIROO190 
FIROO200 
FIROO210 
FIROO220 
FIROO230 
ҒІК00280 
ҒІКФ ο 
ҒІК00260 
FIROO270 
FIROO280 
FIROO290 
FIROO300 
ҒІК00310 
ҒІК00320 
FIROO330 
FIROO3A0 
FIROO350 
ҒІК00360 
ҒІК00370 
ҒІК00380 
ҒІК00390 
ҒІК00800 
ҒІК00810 
ҒІК00820 
ҒІК00830 
F1ROO44O 
ҒІК00850 
ҒІК00560 
ҒІК00870 
ҒІК00880 
ҒІК00890 
ҒІК00500 


CHR HHH HHH HH HHH HHH HHH HHH HHH HHH HHH HH HHH HHH HHH HHH HHH HH HHH HHH HHH EHH HH E | ROOD 10 


C 


SUBROUTINE FIR(XX) 

SUBROUTINE FIR(XX) SIMULATES THE FIR FILTER 
COMMON J 
REAL*8 J,WO,W1,W2,W3,X1,X2,X3, INPUT, OUTPUT 


200 


ҒІК00520 
ҒІК00530 
ҒІК00580 
FIROO550 


F kË: FIRipP FORTRAN ΑἹ 


DIMENSION XX(4&),DESIRE( 105) 
INITIAL CONDITIONS 
ЕТІМЕ-100. 
[ο ο 
ιοουντ-ο 
INITIALIZE THE COST (CUMULATIVE ERROR) FUNCTION 
J=0.0 
GAIN COEFFICIENTS TO BE OPTIMIZED 
WO=XX(1) 
W1=XX(2) 
W2=XX( 3) 
W3=XX(4) 
C SHIFT REGISTERS 
X1=0.0 
X2=0.0 
Х3-0.0 
С SIMULATE DESIRED OUTPUT SIGNAL 
КОО 15 ι-1,105 


e 


O о 


15 DESIRE( I)2-1.0 
DO ey A 
16 DESIRE( 1+44)=1.0 
G 
K=1 
C OUTPUT HEADING 
c WRITE(6,99) 
C 99 FORMAT(' ', 'FIR TRANSVERSAL FILTER SIMULATION RESULTS',///, 
C &' TIME I NPUT SIMULATED OUTPUT DESIRED OUTPUT ',/) 
C LOOP FOR 100 SAMPLE ITERATIONS 
200 CONTINUE 
C SIMULATED INPUT SIGNAL 
INPUT=SIN(.1*T)*COS(.1*T)*(2.+COS(.1*T) ) 
С INPUT=-. OO0O04#T##2+, O4¥T l 
C SIMULATED OUTPUT SIGNAL FROM FIR FILTER 
OUTPUT=WO* | NPUT+W1#X1+W2*X2+W3#*X3 
C WHEN TO PRINTOUT l 
EE COUNT. EQ. 2) GO TO 50 
GO TO 300 
C PRINTOUT 
50 CONTINUE 
С EASYPLOT OUTPUT OPTION 
C WRITE (6,100) T, INPUT, OUTPUT, DESIRE(K) 
C 100 FORMAT(2X,F8.5,1X, F8.5, 3X, F8.5, 13X, F8. 1) 
C SCREEN OUTPUT OPTION 
C WRITE (6,100) T, INPUT,OUTPUT,DESIRE(K) 
ENIOOCFORMAT(TX, TIMES',F7.3,5X, ' INPUTS',F8.5,5X, ' OUTPUT-',F8.5,5X, 
С &'DESIRED OUTPUT-z',F8.H) 
|COUNT=1 
C TEST IF WANT TO STOP 
300 IF (T.GE.ETIME) GO TO 400 


C JE=ERROR FUNCTION 
JEZ(OUTPUT-DESIRE(K) ) **2 

С J=COST FUNCTION (CUMULATIVE ERROR) 
J-J*JE 

ER περ SIZE DELT 
DELT=1.0 
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FIROO560 
ҒІК00570 
ҒІК00580 
FIROO590 
FIROO600 
ҒІК00610 
FIROO620 
FIROO630 
FIROO650 
FIROO650 
FIROO660 
FIROO670 
FIROO680 
FIROO690 
ҒІ К00700 
ҒІК00710 
ҒІ К00720 
FIR00730 
FIROO750 
FIROO 750 
FI ROO 760 
FIROO 770 
FI ROO 780 
F I ROO 790 
FIROOBS800 
FIROOS810 
FIROOS820 
FIROOS830 
FIROO8A0 
ҒІК00850 
ҒІК00860 
ҒІК00870 
FIROOS880 
ҒІК00890 
FIROO900 
FIROO910 
FIROO920 
FIROO930 
ҒІК00950 
ҒІК00950 
ҒІК00960 
ҒІК00970 
FIROO980 
FIROO990 
FIRO1000 
FIRO1010 
FIRO1020 
F IROTOSD 
FIRO1050 
FIROTOSO 
FIRO1060 
FIRO1070 
FIRO1080 
FIRO1090 
FIROTIOO 


ЕТСЕ: 
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500 


“ 


FIRAP 


FORTRAN Al 


T=T+DELT 


K=K+1 


ICOUNT=ICOUNT+1 


X3=X2 
X2=X1 


X1=INPUT 


GO TO 200 
C OUTPUT OPTIMAL WEIGHTS 


FORMAT (' 


t 1X t 


ЦОО WRITE(6,500) JE,WO,W1,W2,W3 
J =' El5 ο 


'W0z',F15.7,9X, 'W1z  , FIS S7T22X, W2=',F 15.7 WS ETSI 


RETURN 
END 
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SUBROUTINE BOXPLX 


PURPOSE 


BOXPLX 


(CATEGORY HO) 


IS A SUBROUTINE USED TO SOLVE THE PROBLEM OF LOCATING 


A MINIMUM (OR MAXIMUM) OF AN ARBITRARY OBJECTIVE FUNCTION 


SUBJECT TO ARBITRARY EXPLICIT AND/OR 
THE COMPLEX METHOD OF M.J. 
DEFINED AS UPPER AND LOWER BOUNDS ON THE 


BOX. EXPLICIT CONSTRAINTS ARE 


IMPLICIT CONSTRAINTS MAY BE ARBITRARY FUNCTIONS OF THE VAR- 


I ABLES. 
FUNCTION AND 


USAGE 


INDEPENDENT VARIABLES ARE RESTRICTED TO 


TWO FUNCTION SUBPROGRAMS TO EVALUATE THE OBJECTIVE 
IMPLICIT CONSTRAINTS, 
SUPPLIED BY THE USER (SEE EXAMPLE BELOW). 
THE OPTION TO PERFORM 
OF THE 


RESPECTIVELY, MUST BE 
BOXPLX ALSO HAS 
INTEGER PROGRAMMING, WHERE THE VALUES 
INTEGERS. 


CALL BOXPLX (NV, NAV, NPR, NTA, R, XS, IP, XU, XL, YMN, I ER) 


DESCRIPTION OF PARAMETERS 


NV 


NAV 


AN INTEGER 


INPUT DEFINING THE NUMBER OF 


INDEPENDENT 


VARIABLES OF THE OBJECTIVE FUNCTION TO BE MINIMIZED. 


NOTE: 
29. 
DECK 
STATEMENTS. 


AN INTEGER 


MAXIMUM NV + NAV 
IF THESE LIMITS MUST BE EXCEEDED: 
IN THE USUAL MANNER, AND CHANGE THE DIMENSION 


LS PRESENTLY- 50; 
PUNCH A SOURCE 


INPUT DEFINING THE NUMBER OF AUXILIARY VAR- 

IABLES THE USER WISHES TO DEFINE FOR HIS OWN CONVENIENCE. 
TYPICALLY HE MAY WISH TO DEFINE THE VALUE OF EACH 
CONSTRAINT FUNCTION AS AN AUXILIARY VARIABLE. 


Ir MIS 


IS DONE, THE OPTIONAL OUTPUT FEATURE OF BOXPLX CAN BE 
USED TO OBSERVE THE VALUES OF THOSE CONSTRAINTS AS THE 


SOLUTION PROGRESSES. 
SHOULD BE EVALUATED 


NAV MAY BE ZERO. 


AUXILIARY VARIABLES, IF USED, 
IN FUNCTION KE (DEFINED BELOW). 
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IMPLICIT CONSTRAINTS BY 


INDEPENDENT VARIABLES. 


MAXIMIM NV IS 


FIRO1110 
FIRO1120 
FIRO1130 
ҒІК01140 
FIRO11 50 
ҒІК01160 
FIR01170 
FIR01180 
FIR01190 
ҒІК01200 
FIR01210 
FIR01220 
FIR01230 
FIRO1240 
ҒІКОЛ 
FIRO1260 
ҒІКОТ2 В 
ҒІК01280 
ҒІК01290 
FIRO1300 
FIRO1310 
FIR01320 
FIR01 Б 
FIRO1340 
FIROTSSB 
FIRO1360 
FIR01370 
FIR01380 
FIR01390 
ҒІК01500 
FIRO1410 
ҒІК01520 
ЕІК01530 
FIROT44O 
ҒІК01450 
FIRO1A60 
FIRO1570 
ҒІК01580 
ҒІК01590 
ҒІК01500 
ҒІКОТЭ 
FIR01520 
FIR01530 


ΕΙΒΟΙΡΗΟ 


FIROTOSB 
FIRO1560 
FIR01570 


IMPLICITFIR01580 


FIRO1590 
FIRO1600 
FIRO1610 
FIRO1620 
FIRO1630 
FIRO1640 
FIRO1650 


κιν: F REP FORTRAN Al 


NPR INPUT INTEGER CONTROLLING THE FREQUENCY OF OUTPUT DESIRED FIR01660 
FOR DIAGNOSTIC PURPOSES. IF NPR .LE. O, NO OUTPUT WILL BEFIR01670 
PRODUCED BY BOXPLX. OTHERWISE, THE CURRENT COMPLEX OF FIRO1680 
K- 2*NV VERTICES AND THEIR CENTROID WILL BE OUTPUT AFTER Ғ1ІК01690 
EACH NPR PERMISSIBLE TRIALS. THE NUMBER OF TOTAL TRIALS, FIRO1700 
NUMBER OF FEASIBLE TRIALS, NUMBER OF FUNCTION EVALUATIONS FIRO1710 


AND NUMBER OF IMPLICIT CONSTRAINT EVALUATIONS ARE IN- FIR01720 
CLUDED IN THE OUTPUT. FIR01730 
ADDITIONALLY, (WHEN NPR .GT. O) THE. SAME INFORMATION ҒІК01740 
WILL BE OUTPUT: FIR01750 
FIRO1760 

1) IF THE INITIAL POINT IS NOT FEASIBLE, FIR01770 

2) AFTER THE FIRST COMPLETE COMPLEX IS GENERATED, FIR01780 

3) IF A FEASIBLE VERTEX CANNOT BE FOUND AT SOME TRIAL, ҒІК01790 

4) IF THE OBJECTIVE. VALUE OF A VERTEX CANNOT BE MADE ҒІК01800 
NO-LONGER -WORST. FIR01810 

5) IF THE LIMIT ON TRIALS (NTA) IS REACHED AND, ҒІК01820 

: 6) WHEN THE OBJECTIVE FUNCTION HAS BEEN UNCHANGED FOR ҒІК01830 
2*NV TRIALS, INDICATING A LOCAL MINIMUM HAS BEEN ҒІК01840 

FOUND. FIRO1850 

FIRO1860 

IF THE USER WISHES TO TRACE THE PROGRESS OF A SOLUTION, FIR01870 

A CHOICE OF NPR = 25, 50 OR 100 IS RECOMMENDED. FIRO1880 
FIR01890 

NTA INTEGER INPUT OF LIMIT ON THE NUMBER OF TRIALS ALLOWED FIRO1900 
IN THE CALCULATION. IF THE USER INPUTS NTA .LE. O, A FIR01910 
DEFAULT VALUE OF 2000 IS USED. WHEN THIS LIMIT IS REACHEDF IR01920 
CONTROL RETURNS TO THE CALLING PROGRAM WITH THE BEST FIRO1930 
ATTAINED OBJECTIVE FUNCTION VALUE IN YMN, AND THE BEST ҒІК01940 
ATTAINED SOLUTION POINT IN XS. FIRO1950 
FIRO1960 

R A REAL NUMBER INPUT TO DEFINE THE FIRST RANDOM NUMBER FIRO1970 
USED IN DEVELOPING THE INITIAL COMPLEX OF 2*NV VERTICIES. FIRO1980 

O GO Ἱτ TPE ik ls NOT WITHIN THESE BOUNDS, FIRO1990 

Rea webeBc REPLACED BY 1.73. . FIRO2000 
FIRO2010 


XS INPUT REAL ARRAY DIMENSIONED AT LEAST NV-*NAV. THE FIRST FIRO2020 
NV MUST CONTAIN A FEASIBLE ORIGIN FOR STARTING THE CAL- F IR02030 
CULATION. THE LAST NAV NEED NOT BE INITIALIZED. UPON ҒІК02040 
RETURN FROM BOXPLX, THE FIRST NV ELEMENTS OF THE ARRAY FIRO2050 
CONTAIN THE COORDINATES OF THE MINIMUM OBJECTIVE FUNCTION, FIRO2060 
AND THE REMAINING NAV (NAV .GE. 0) CONTAIN THE VALUES OF  FIRO2070 


OO0000000000000000000000000000O0Q0Q0Q000Q0O0000000000000000000 


THE CORRESPONDING AUXILIARY VARIABLES. FIRO2080 
FIRO2090 

ІШЕ INTEGER INPUT FOR OPTIONAL INTEGER PROGRAMMING. ІР ІР-1, ҒІК02100 
THE VALUES OF THE INDEPENDENT VARIABLES WILL BE REPLACED FIRO2110 

WITH INTEGER VALUES (STILL STORED AS REAL*4). FIRO2120 
FIRO2130 

XU A REAL ARRAY DIMENSIONED AT LEAST NV INPUTTING THE UPPER ҒІК0О2140 
BOUND ON EACH INDEPENDENT VARIABLE, (EACH EXPLICIT CON- FIRO2150 
STRAINT). INPUT VALUES ARE SLIGHTLY ALTERED BY BOXPLX. FIRO2160 
FIR02170 

XL A REAL ARRAY DIMENSIONED AT LEAST NV INPUTTING THE LOWER FIR02180 
BOUND ON EACH INDEPENDENT VARIABLE, (EACH EXPLICIT CON- FIRO2190 
STRAINT). NOTE: FOR BOTH XU AND XL CHOOSE REASONABLE FIRO2200 


203 


FILE: FIRAP FORTRAN А1 

G VALUES IF NONE ARE GIVEN, NOT VALUES WHICH ARE MAGNITUDES FIRO2210 
С ABOVE OR BELOW THE EXPECTED SOLUTION. INPUT VALUES ARE FIRO2220 
C SLIGHTLY ALTERED BY BOXPLX. FIRO2230 
С ҒІК02240 
С YMN THIS OUTPUT IS THE VALUE (REAL*4) OF THE OBJECTIVE FUNC- FIRO2250 
G TION, CORRESPONDING TO THE SOLUTION POINT OUTPUT IN XS. FIRO2260 
C FIRO2270 
С IER INTEGER ERROR RETURN. TO BE INTERROGATED UPON RETURN FIRO2280 
С FROM BOXPLX. IER WILL BE ONE OF THE FOLLOWING: FIRO2290 
G FIRO2300 
C =-1 CANNOT FIND FEASIBLE VERTEX OR FEASIBLE CENTROID FIRO2310 
G AT THE START OR A RESTART (SEE 'METHOD' BELOW). FIR02320 
C = 0 FUNCTION VALUE UNCHANGED FOR 'N' TRIALS. (WHERE FIRO2330 
C N=6*NV+10) THIS IS THE NORMAL RETURN PARAMETER. ҒІК02340 
б =] CANNOT DEVELOP.FEASIBLE VERTEX. FIRO2350 
С zo CANNOT DEVELOP A NO-LONGER-WORST VERTEX. FIRO2360 
C =3 LIMIT ON TRIALS REACHED. (NTA EXCEEDED) FIRO2370 
С NOTE: VALID RESULTS MAY BE RETURNED IN ANY OF THE FIRO2380 
G ABOVE CASES. FIR02390 
С. FIRO2400 
С EXAMPLE OF USAGE FIRO2410 
C FIRO2420 
С THIS EXAMPLE MINIMIZES THE OBJECTIVE FUNCTION SHOWN IN THE FIRO2430 
G EXTERNAL FUNCTION FE(X). THERE ARE TWO INDEPENDENT VAR- FIRO2440 
G IABLES X(1) & X(2), AND TWO IMPLICIT CONSTRAINT FUNCTIONS ҒІК02450 
G X(3) & X(4) WHICH ARE EVALUATED AS AUXILIARY VARIABLES (SEE FIRO2A460 
C EXTERNAL FUNCTION KE(X) ). FIRO2470 
G FIRO2480 
С DIMENSION XS(4),XU(2),XL(2) FIRO2490 
GG FIRO2500 
CC STARTING GUESS FIRO2510 
С XS(1) - 1.0 ҒІК02520 
C Х5(2) = 685 FIRO2530 
CC UPPER LIMITS ҒІК02540 
C ХОСТ) = Geo FIRO2550 
C KUUC2)L 223570 FIRO2560 
CC LOWER LIMITS FIRO2570 
C хыт) - 0-0 ҒІК02580 
C XL (2) = 0 0 FIR02590 
GG FIRO2600 
C R = 9./ 13 FIR02610 
C NTA = 5000 FIRO2620 
G NPR = 50 FIRO2630 
С NAVY => FIRO2640 
С NV = 2 FIRO2650 
G IP = 0 FIR02660 
CE FIRO2670 
C CALL BOXPLX (NV,NAV,NPR,NTA,R,XS, IP, XU, XL, YMN, I ER) FIRO2680 
G WRITE(6,1) ((XS(1),121,4), YMN, IER) FIRO2690 
G 1 FORMAT (////,' THE POINT IS LOCATED AT (XS(1)2) ',4(E13.7,5X), FIR02700 
C p AND THE FUNCTION VALUE IS ',E13.7,' IER » ',15) FIRO2710 
CC FIRO2720 
G STOP FIRO2730 
С END ҒІК02740 
G6 FIRO2750 
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FILE: FIRAP FORTRAN A1 
EC 
С FUNCTION KE(X) 
CC EVALUATE CONSTRAINTS. SET KE=0 IF NO IMPLICIT CONSTRAINT IS 
CC VIOLATED, OR SET KE=1 IF ANY IMPLICIT CONSTRAINT IS VIOLATED. 
C DIMENSION X(4) 
C X12 X(1) 
Ç X2 = X(2) 
С KE = 0 
C X(3) = X1 * 1.732051*X2 
C ДЕР ТЕ 9 υπ. X(3)..GT, 6.) 69 TO 1 
б X(4) = X1/1.732051 -X2 
C IF (X(4) .GE. 0.) RETURN 
SC 
C KE = 1 
© RETURN 
C END 
CC 
СС 
С FUNCTION  FE(X) 
C DIMENSION X(À) 
CC 
CC THIS IS THE OBJECTIVE FUNCTION. 
FE= -(Х(2)%%3 %(9,-(Х(1)-3.)%%2)/(46.76538)) 
RETURN 
END 
METHOD 


0000000000600 4%) О ОО О ОЖ О C) OO CO C) CO ww" Oo CÓ) O 


THE COMPLEX METHOD IS AN EXTENSION AND ADAPTION OF THE SIM- 
PLEX METHOD OF LINEAR PROGRAMMING. STARTING WITH ANY ONE 
FEASIBLE POINT IN N-DIMENSION SPACE A "COMPLEX" OF 2*N 
VERTICES IS CONSTRUCTED BY SELECTING RANDOM POINTS WITHIN THE 
FEASIBLE REGION. FOR THIS PURPOSE N COORDINATES ARE FIRST 
RANDOMLY CHOSEN WITHIN THE SPACE BOUNDED BY EXPLICIT CON- 
STRAINTS. THIS DEFINES A TRIAL INITIAL VERTEX. IT IS THEN 
CHECKED FOR POSSIBLE VIOLATION OF IMPLICIT CONSTRAINTS. ΙΕ 
ONE OR MORE ARE VIOLATED, THE TRIAL INITIAL VERTEX 
HALF OF ITS DISTANCE FROM THE CENTROID OF PREVIOUSLY SELECTED 
INITIAL VERTICES. IF NECESSARY THIS DISPLACEMENT PROCESS IS 
REPEATED UNTIL THE VERTEX HAS BECOME FEASIBLE. IF THIS FAILS 
TO HAPPEN AFTER 5*N+10 DISPLACEMENTS, THE SOLUTION IS ABAND- 
ONED. AFTER EACH VERTEX |S ADDED TO THE COMPLEX, THE CURRENT 
CENTROID IS CHECKED FOR FEASIBILITY. IF IT IS INFEASIBLE, 
THE LAST TRIAL VERTEX IS ABANDONED AND AN EFFORT TO GENERATE 


AN ALTERNATIVE TRIAL VERTEX IS MADE. ΙΕ 5*N*1O VERTICES ARE 
ABANDONED CONSECUTIVELY, THE SOLUTION IS TERMINATED. 

IF AN INITIAL COMPLEX IS ESTABLISHED, THE BASIC COMPUTATION 
LOOP IS INITIATED. THESE INSTRUCTIONS FIND THE CURRENT WORST 


VERTEX, THAT IS, THE VERTEX WITH THE LARGEST CORRESPONDING 
VALUE FOR THE OBJECTIVE FUNCTION, AND REPLACE THAT VERTEX BY 
ITS OVER-REFLECTION THROUGH THE CENTROID OF ALL OTHER VERTICES. 
(IF THE VERTEX TO BE REPLACED IS CONSIDERED AS A VECTOR IN 
N-SPACE, ITS OVER-REFLECTION IS OPPOSITE IN DIRECTION, IN- 
CREASED IN LENGTH BY THE FACTOR 1.3, AND COLLINEAR WITH 
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FIRO2760 
FIRO2770 
FIR02780 
FIRO2790 
FIRO2800 
FIRO2810 
FIRO2820 
FIRO2830 
ҒІК02840 
FIR02850 
FIRO2860 
FIRO2870 
FIRO2880 
FIRO2890 
FIRO2900 
FIRO2910 
FIRO2920 
FI R02930 
ҒІК02940 
FIRO2950 
FIRO2960 
FIRO2970 
FIRO2980 
FIRO2990 
FIRO3000 
FIRO3010 
FIRO3020 
FI R03030 
F1R03040 
FIRO3050 
FIRO3060 
FIRO3070 
FIRO3080 
FIRO3090 
FIRO3100 
FIRO3110 


15 DISPLACEDFIRO3120 


FIRO3130 
FIRO3 140 
FIRO3150 
F | RO3 160 
FIRO3170 
FIRO3 180 
FIRO3190 
FIRO3200 
FIR03210 
FIR03220 
F IR03230 
FIR032H0 
FEROS250 
FIRO3260 
FIR03270 
FIR03280 
FIRO3290 
FIRO3300 
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Ε ΠΡ FORTRAN ΑἹ 


THE REPLACED VERTEX ΑΠΡ ΟΕΝΊΠΟΙΌ ΟΕ ΑΤΕΙ, » 


WHEN ΑΝ OVER-REFLECTION IS NOT FEASIBLE OR REMAINS WORST, IT 
|5 CONSIDERED NOT-PERMISSIBLE AND IS DISPLACED HALFWAY TOWARD 


FIR033 10 
FIR03320 
FIR03330 
ҒІК03340 


THE CENTROID. AFTER FOUR SUCH ATTEMPTS ARE MADE UNSUCCESSFULLYFIR03350 
EVERY FIFTH ATTEMPT IS MADE BY REFLECTING THE OFFENDING VERTEX =) ο... 


THROUGH THE PRESENT BEST VERTEX, INSTEAD OF THROUGII THE CEN- 
TROTO: IF 5*N+#10 DISPLACEMENTS AND OVER-REFLECTIONS OCCUR 
WITHOUT A SUCCESSFUL (PERMISSIBLE) RESULT, TIE TT SDT 
VERTEX IS TAKEN AS AN INITIAL FEASIBLE POINT FOR A RESTART 
RUN OF THE COMPLETE PROCESS. RESTARTING IS ALSO UNDERTAKEN 


WHEN 6*NV+10 CONSECUTIVE TRIALS HAVE BEEN MADE WITH NO SIGNIF- 


ICANT CHANGE IN THE VALUE OF THE OBJECTIVE FUNCTION, IN ALL 
CASES, RESTARTING IS INHIBITED IF THE LAST RESTART DID NOT 
PRODUCE A SIGNIFICANT IMPROVEMENT IN THE MINIMUM ATTAINED. 


IT IS RECOMMENDED THAT THE USER READ THE REFERENCE FOR 
FURTHER USEFUL INFORMATION. IT SHOULD BE NOTED THAT THE 
ALGORITHM DEFINED THERE HAS BEEN ALTERED TO FIND THE 
CONSTRAINED MINIMUM, RATHER THAN THE MAXIMUM. 


REMARKS 


THE INTEGER PROGRAMMING OPTION WAS ADDED TO THIS PROGRAM 

AS SUGGESTED IN REFERENCE (2). A MIXED INTEGER/CONTINUOUS 
VARIABLE VERSION OF BOXPLX WOULD BE EASY TO CREATE BY DE- 
CLARING "IP" TO BE AN ARRAY OF NV CONTROL VARIABLES WHERE IP 
(1)=1 WOULD INDICATE THAT THE I-TH VARIABLE IS TO BE CONFINED 
TO INTEGER VALUES. EACH STATEMENT OF THE FORM 'IF (IP .EQ. 
1)! ETC. WOULD THEN NEED TO BE ALTERED TO 'IF (IP(I) .EQ. 1)' 
ETC., WHERE THE SUBSCRIPT IS APPROPRIATELY CHOSEN. NORMALLY, 
XU AND XL VALUES ARE ALTERED TO BE AN EPSILON 'WITHIN' ACTUAL 
VALUES DECLARED BY THE USER. THIS ADJUSTMENT IS NOT MADE 
WHEN IP=1. 


NOTE: NO NON-LINEAR PROGRAMMING ALGORITHM CAN GUARANTEE THAT 
THE ANSWER FOUND IS THE GLOBAL MINIMUM, RATHER THAN JUST A 
LOCAL MINIMUM. HOWEVER, ACCORDING TO REF.2, THE COMPLEX 
METHOD HAS AN ADVANTAGE IN THAT IT TENOS TO FIND THE GLOBAL 
MINIMUM MORE FREQUENTLY THAN MANY OTHER NON-LINEAR PROGRAM- 
MING ALGORITHMS. 


IT SHOULD BE NOTED THAT THE AUXILIARY VARIABLE FEATURE CAN 
ALSO BE USED TO DEAL WITH PROBLEMS CONTAINING EQUALITY CON- 
STRAINTS. ANY EQUALITY CONSTRAINT IMPLIES THAT A GIVEN VAR- 
[ABLE IS NOT TRULY INDEPENDENT. THEREFORE, IN GENERAL, ONE 
VARIABLE INVOLVED IN AN EQUALITY CONSTRAINT CAN BE RENUMBERED 
FROM THE SET OF NV INDEPENDENT VARIABLES AND ADDED TO THE SET 
OF NAV AUXILIARY VARIABLES. 
THE INDEPENDENT VARIABLES OF THE GIVEN PROBLEM. 


SUBROUTINES AND FUNCTIONS REQUIRED 


THIS USUALLY INVOLVES RENUMBERING 


FIRO3370 
ҒІК03380 
FIRO3390 
F1RO3400 
ҒІКОЗЧЦ ο) 
ҒІ КОЗ 0 
FIRO3430 
FIRO3440 
FIRO3450 
ҒІКОЗ 3 
ҒІКОЗ 3 
ҒІКО3580 
FIRO3490 
FIRO3500 
FIR03510 
FIR03520 
FIR03530 
FIRO3540 
ҒІК03550 
ҒІК03560 
FIRO3570 
FIRO3580 
FIRO3590 
FIRO3600 
FIR03610 
FIR03620 
FIR03630 
FIRO3640 
FIRO3 650 
FIRO3660 
FIRO3670 
FIRO3680 
FIRO3690 
FIRO3700 
FIRO3710 
FIRO3720 
FIRO3730 
FIRO3 740 
FIRO3 750 
FIRO3760 
FIR03770 
FIR03780 
FIRO3790 
FIRO3800 
FIRO3810 
FIRO3820 
FIRO3830 
FIRO38&0 
FIR03850 


ο FIRUP FORTRAN Al 


C SUBROUTINE 'BOUT' AND FUNCTION 'FBV' ARE INTEGRAL PARTS OF F 1RO3860 
C THE BOXPLX PACKAGE. FIRO3870 
G FIRO3880 
C TWO FUNCTIONS MUST BE SUPPLIED BY THE USER. THE FIRST, KE(X), FIRO3890 
С IS USED TO EVALUATE THE IMPLICIT CONSTRAINTS. SET KE=0 AT THE FIRO3900 
C BEGINING OF THE FUNCTION, THEN EVALUATE THE IMPLICIT CON- FIRO3910 
C STRAINTS. IN THE EXAMPLE ABOVE, THE FIRST CONSTRAINT, X(3), FIRO3920 
С MUST BE WITHIN THE RANGE (0. .LE. X(3) .LE. 6.). THE SECOND FIRO3930 
С CONSTRAINT X(4), MUST BE .GE. 0. . IF EITHER CONSTRAINT IS FIRO3940 
C NOT WITHIN THESE BOUNDS, CONTROL IS TRANSFERRED TO STATEMENT 1,FIRO3950 
С AND KE IS SET TO "1" AND CONTROL IS RETURNED TO BOXPLX. FIRO3960 
С FIRO3970 
G THE SECOND FUNCTION THE USER MUST PROVIDE EVALUATES THE OB- FIR03980 
G JECTIVE FUNCTION. IT IS CALLED FE(X) AS SHOWN IN THE EXAM- FIRO3990 
С PLE ABOVE, AND FE MUST BE SET TO THE VALUE OF THE OBJECTIVE ҒІК04000 
G FUNCTION CORRESPONDING TO CURRENT VALUES OF THE NV INDEPENDENT FIRO&A010 
G VARIABLES ΙΝ ARRAY 'X'. ҒІК05020 
СШ. ЕІ КОЧОЗО 
б REFERENCES FIROLOAO0 
С ҒІК04050 
С BOX, M. J., "A NEW METHOD OF CONSTRAINED OPTIMIZATION AND A ҒІК04060 
С COMPARISON WITH OTHER METHODS", COMPUTER JOURNAL, 8 APR. ' 65, ҒІК08070 
G РР. H5-52. ҒІ К05080 
С ҒІК054090 
б BEVERIDGE G., AND SCHECHTER R., "OPTIMIZATION: THEORY AND ҒІК04100 
С PRACTICE", MCGRAW-HILL, 1970. s FIR04110 
C FIRO4120 
G PROGRAMMER F1RO4130 
G FIRO4140 
G R.R. HILLEARY 1/1966. FIRO4150 
C REVISED FOR SYSTEM 360 4/1967 ҒІК08160 
С CORRECTED 1/1969 ҒІК04170 
С REVISED/EXTENDED BY L.NOLAN/R.HILLEARY 2/1975 FIRO4180 
Е CORRECTED 8/1976 ҒІК054190 
С ҒІК04200 
С FIRO4210 
or TL OU uM v c FERE он t tne FIRO4U220 
G FIRO4230 
С FIROA2A40 
SUBROUTINE BOXPLX (NV,NAV,NPR,NTZ,RZ,XS, IP,BU,BL, YMN, I ER) FIRO4250 

C FIROA260 
DIMENSION V(50,50), FUN(50), SUM(25), CEN(25), XS(NV), BU(NV), BL(FIROA270 

1NV) ҒІК04280 

G ҒІК04290 
КУ = 5 ҒІК04300 

ЕР = 1.Е-6 FIRO4310 

ΠΙΑ - 2000 FIRO4&U320 

us (NTZ-GT.O) NTA - NTZ ҒІК08330 

R = RZ ҒІК08350 

IF (R.LE.O..OR.R.GE.1.) R=1./3. FIRO4350 

NVT - NV*NAV ҒІК08360 

С ҒІК05370 
С TOTAL VARS, EXPLICIT PLUS IMPLICIT | ҒІК05380 
NT = oO FIR04390 

G CURRENT TRIAL NO. F I RO4400 
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FILE κας FORTRAN Al 
NPT = O 
CURRENT NO. OF PERMISSIBLE TRIALS 
NTFS = 0 


OOOO O 


OO OO QOO 


CURRENT NO. OF TIMES F HAS BEEN ALMOST UNCHANGED 


CHECK FEASIBILITY OF. START POINT 


DO 4 1-1,МУ 
VT = XS{ 1) 
IF (BB( T). LE; VI) GO TO 
lt = ~= 
VT = BL(I) 
CO TO 2 
1 IF (BUI CE VT) COD OD) 
[1 = | 
VT = BU(I 
2 ΙΕ (NPR.GT.O) WRITE (6,49) 11 
3 V(1,1) 5 VT 
СЕНТ) = VT 
IF (IP.EQ.]) GO TO Ц 
BL(I) = BL(I)+AMAX1(EP,EP*ABS(BL(!))) 
BU(I) = BU(1)-AMAX1( EP, EP*ABS(BU(1))) 
4 SUM(I) = VT 
NCE = 1 
NUMBER OF CONSTRAINT EVALUATIONS 
I = 1 
IF (KE(V(1,1)).EQ.0) GO TO 5 
IF (NPR.LE.0) GO TO 12 
WRITE (6,50) 
τν ΤΟ 12 
5 NFE = 1 


NUMBER OF VERTICES (K) = 2 TIMES NO. OF VARIABLES. 
K = 2*NV 


NUMBER OF DISPLACEMENTS ALLOWED. 
NLIM = 5*NV+10 


NUMBER OF CONSECUTIVE TRIALS WITH UNCHANGED FE TO TERMINATE. 


NCT = NLIM+t+NV 
ALPHA = 1.3 

FK = K 

FKM = FK-1. 
BETA = ALPHA+1. 


INSURE SEED OF RANDOM NUMBER GENERATOR IS ODD. 
IQR = R*1.E7 
IF (MOD(1QR,2).£Q.0) IQR=IQR+101 


SET UP INITIAL VERTICES 


FUN(1) = FE(V(1,1)) 
YMN = FUN(1) 
6 Fl = τι. 
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FIRO4410 
FIROY420 
FIRO4&430 
F I ROUUU4O 
FI RO4U50 
FIRORA60 
FIROLA70 
F I RO4U48O0 
ҒІК0Ц590 
ҒІК05500 
FIRO4510 
FI R004520 
ҒІ К05530 
FIRO&Y540 
ҒІК04550 
ҒІК04560 
ҒІК05570 
ҒІК04580 
ҒІК04590 
ΕΙΚΟΗ6ΟΟ 
ҒІК05610 
ҒІК04620 
ҒІК08630 
FIROY640 
F1RO4650 
F1RO4660 
ҒІК05670 
F1RO4680 
ҒІК04690 
FIRO&700 
ҒІК08710 
ҒІК08720 
ҒІК0О8730 
FIRO4Y74O 
FIROA750 
ҒІК04760 
FIRO4&770 
FIRO4&780 
F1 RO4790 
F I RO4800 
F I R04810 
Ғ | К05820 
FIRO48 30 
ҒІК05840 
ҒІК04850 
ҒІК04860 
ҒІК05870 
ҒІК05880 
ҒІК05890 
ҒІК05900 
ҒІК05910 
FIROA920 
ҒІК04930 
FIROA9A0 
F I R04950 


ILE: 


OO O QOO 


O O 


7 


END CALCULATION IF FEASIBLE CENTROIO CANNOT BE FOUND. 


FIRAP FORTRAN А1 


FUNOLO - FUN(1) 


00 15 із2,К 
πι = FIFI. 
LIMT = 0 


LIMT = LIMT+1 


me (LUM. GE. NLIM) GO TO 11 


DO 8 J=1,NV 


RANDOM NUMBER GENERATOR (RANDU) 


9 
10 


11 


2 


(88 
14 


IQR = 1QR*65539 

IF (IQR.LT.O) IQR = IQR+2147483647+1 
RQX | QR 

RQX RQX*.4656613E-9 

V(J,1) » BL(J)*RQX*(BU(J) 7BL(J)) 

IF (IP.EQ.1) V(J,l)=AINT(V(J,!)+.5) 
CONTINUE 


DO 10 L=1,NLIM 
NCE = NCE+1 
BeecKE( V(1,1)).EQ.0) GO TO 13 


DO 9 J=1,NV 

VT = .5*(V(J,!)+CEN(J)) 

IF (IP.EQ.1) VT = AINT(VT+.5) 
V(J,1) = VT 

CONTINUE 


CONTINUE 


IF (NPR.LE.O) GO TO 12 

WRITE (6,51) | 

CALL BOUT (NT,NPT,NFE,NCE,NV,NVT,V,1,FUN,CEN, 1) 
IER = -1 

GO TO 48 


DO 14 J=1,NV 
SUM(J) = SUM(J)*V(J, 1) 
CEN(J) SUM(J)/FI 


ll | 


TRY TO ASSURE FEASIBLE CENTROID FOR STARTING. 


60 
15 


NCE = NCE+1 

IF (KE(CEN).EQ.O) GO TO 60 
SUM(J) — SUM(J) -V(J,lI) 

GO TO 7 

NFE = NFE+1 

ӘШІГІ) - ҒЕ(У(1,!)) 
CONTINUE 


END OF LOOP SETTING OF INITIAL COMPLEX. 


IF (NPR.LE.0) GO TO 17 
CALL BOUT (NT,NPT,NFE,NCE,NV,NVT,V,K, FUN, CEN,O) 
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FIROR960 
FIROR970 
ҒІК05980 
FIROR990 
ҒІК05000 
ҒІК05010 
ҒІК05020 
ҒІК05030 
ҒІК05050 
ҒІК05050 
ҒІК05060 
ҒІК05070 
ҒІК05080 
F IR05090 
ҒІК05100 
FIR05110 
ҒІК05120 
FIR05130 
FIRO51A50 
FIRO5150 
FIRO5160 
FIR05170 
FIR05180 
FIRO5190 
ҒІК05200 
ҒІК05210 
F | R05220 
FIROS230 
FIRO5240 
F IR05250 
ҒІК05260 
FIRO5270 
F IR05280 
ҒІК05290 
ҒІК05300 
FIR05310 
FIROS320 
F IR05330 
FIROS350 
FIRO5350 
FIRO5360 
05370 
F1RO5380 
F IR05390 
ҒІК05400 
FIRO5410 
FIRO5420 
FIRO5430 
FIRO5440 
FIRO5450 
ҒІК05560 
FIRO5470 
ҒІК05480 
FIRO5490 
F1RO5500 


FILE; 


ООО ΟΟΟ O QO ОСО O O 


ооо О ΩΩ 


ООО 


FIRAP FORTRAN А1 


FIND THE WORST VERTEX, THE 'J'TH. 
J = 1 


DO 16 I=2,K 
IF (FUN(J).GE.FUN(l)) GO TO 16 
J = | 

16 CONTINUE 


BASIC LOOP. ELIMINATE EACH WORST VERTEX 
NO LONGER WORST, NOT MERELY IMPROVED. 
THE 'JN'TH ONE. 

i = т 

ІР (2.6017 01 - 2 


IN TURN. IT MUST BECOME 
FIND NEXT-TO-WORST VERTEX, 


00 18 І-1,К 
ПЕ (I.EQ. J) GOMO 18 


IF (FUN(JN).GE.FUN(l)) GO TO 18 


JN = | 
18 CONTINUE 


LIMT = NUMBER OF MOVES DURING THIS TRIAL TOWARD THE CENTROID 
DUE TO FUNCTION VALUE. 
LIMT = 1 


COMPUTE CENTROID AND OVER REFLECT WORST VERTEX. 


Ρο 197 η. 
ES VCI) 

SUM(1) = SUM(1)-VT 

CEN(1) = SUM(1)/FKM 

VT = BETA*CEN( 1) “ALPHA*VT 

ІҒ (ІР.Е0.1) VT = AINT(VT+.5) 


1,NV 


INSURE THE EXPLICIT CONSTRAINTS ARE OBSERVED. 
19 V(1,J) - AMAXT(AMIN1(VT,BU(1)),BL(1)) 


NT = NT+1 


CHECK FOR IMPLICIT CONSTRAINT VIOLATION, 
20 DO 25 N=1,NLIM 

NCE = NCE+1 

IF (KE(V(1,J)).EQ.0) GO TO 26 


EVERY 'KV'TH TIME, OVER-REFLECT THE OFFENDING VERTEX THROUGH THE 
BEST VERTEX. 

IF (MOD(N,KV).NE.O) GO TO 22 

CALL FBV (K,FUN,M) 


DO 21 1=1,NV 
VT 2 BETA*V( I, M) -ALPHA*V( 1,J) 
IF (IP. EQ. 1) VT = AINT(VT+.5) 
21 V(1,J) » AMAXI(AMINT(VT,BU(1)),BL( 1 )) 
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FIRO5510 
FIRO5520 
FIRO5530 
FIRO5540 
FIRO5550 
ҒІК05560 
ҒІК05570 
ҒІК05580 
FIRO5590 
FIRO5600 
ҒІК05610 
ҒІК05620 
FIRO5630 
ҒІК05640 
ҒІ К05650 
FIRO5660 
FIRO5670 
FIRO5680 
FIRO5690 
FIRO5700 
FIROS710 
FiRO5720 
FIRO5730 
ҒІК05740 
FIRO5750 
FIRO5760 
FIRO5770 
FIRO5780 
FIRO5790 
FIRO5800 
FIRO5810 
FIRO5820 
FIRO5830 
ҒІК05840 
ҒІК05850 
ҒІК05860 
ҒІК05870 
ҒІК05880 
FIRO5890 
FIRO5900 
FIRO5910 
FIRO5920 
F1RO5930 
FIRO59AO 
ҒІК05950 
ҒІК05960 
ҒІК05970 
ҒІК05980 
FIRO5990 
FIRO6000 
FIRO6010 
FIRO6020 
FIRO6030 
FIRO60A0 
FIRO6050 


FILE: 


O O O O O O O 


ә Шер, 


ον 


ОСО 


οσο ο Ὁ 


FIRGP FORTRAN Al 


GO TO 24 


CONSTRAINT VIOLATION: MOVE NEW POINT TOWARD CENTROID. 
22 00 23 1=1, № 

VT 2 .5*(CEN(1)*V(1,J)) 

IF (IP. EQ. 1) VT = AINT(VT+.5) 

V(1,J) = ντ 
23 CONTINUE 


2u NT - NT*1 
СОО CONTINUE 


IER = 1 


CANNOT GET FEASIBLE VERTEX BY MOVINC TOWARD CENTROIO, 
ШЕРТ T OVER -REFLECTING THRU THE BEST VERTEX. 

IF (NPR.LE.O) CO TO 42 

Mee (6,52) NT,J 

БӘРІ ВОТ (NT,NPT,NFE,NCE,NV,NVT,V,K, FUN,CEN, J} 


CO TO &e 
РЕСОТВГЕ VERTEX FOUND, EVALUATE THE OBJECTIVE FUNCTION. 
26 МЕЕ = МЕЕ+1 
FUNTRY = FE(V(1,J)) 
TEST TO SEE IF FUNCTION VALUE HAS NOT CHANGED. 
AFO = ABS(FUNTRY -FUNOLD) 
AMX - AMAXI(ABS(EP*FUNOLD), EP) 


ACTIVATE THE FOLLOWINC TWO STATEMENTS FOR DIACNOSTIC PURPOSES ONLY. 


WRITE (6,99) J,AFO, AMX, FUNTRY, FUNOLD, FUN(J), FUN( UN), NTFS,N 
99 FORMAT. (1X,13,6E15. 7,215) 
IF (AFO. CT. AMX) CO TO 27 


NTFS = NTFS*1 
E NIFS. LIT. NCIT) СО ТО 28 
IER = O 


αρα. Ες.) 
КЕШТЕ (6252) К 
CALL BOUT (NT,NPT,NFE,NCE,NV,NVT,V, K, FUN, CEN,O) 
CO TO 42 

ЕШ ИТГ5 = 0 


CO TO 42 


IS THE NEW VERTEX NO LONGER WORST? 
28 IF (FUNTRY.LT. FUN(JN)) GO TO 34 


TRIAL VERTEX IS STILL WORST; ADJUST TOWARD CENTROID. 
EVERY 'KV'TH TIME, OVER-REFLECT THE OFFENDING VERTEX THROUGH THE 
BEST VERTEX. 

ΠΠ = LIMTH 

IF (MOD(LIMT,KV).NE.O) CO TO 30 

CALL FBV (K,FUN,M) 


[O 29 [-1,NV | 
ESE BETA VUE MI ALPHA V(I, J} 


ex 


FIRO6060 
FIRO6070 
FIRO6080 
ҒІК06090 
ҒІК06100 
ЕІКОСТІТІО 
ҒІК06120 
FIROG6130 
FIRO6140 
FIR06150 
FIRO6160 
Για οἱ Ὁ 
FIROG6180 
FIRO6190 
FIRO6200 
[255002110 
F IR06220 
06230 
FIRO6240 
ҒІК06250 
ҒІК06260 
FIRO6270 
FIRO6280 
FIRO6290 
FIRO6300 
FIR06310 
F IR06320 
FIR06330 
FIRO6340 
FIRO6350 
FIRO6360 
FIRO6370 
FIRO6380 
FIRO6390 
ҒІК06500 
ҒІК06510 
FIR06420 
FIRO6430 
FIRO6440 
FIROGHS© 
FIRO6460 
FIRO64%70 
FIRO6U80 
ҒІК06490 
F 606500 
ҒІК06510 
FIRO6520 
FE IR06530 
ҒІК065450 
FIRO6550 
FIRO6560 
FROGS 70 
FIRO6580 
FIRO6590 
FIRO6600 


FILE: 


O O O O 


O O 


O O O O 


29 


30 


31 
32 


FIRAP ҒОКТКАМ А1 


IF (IP.EQ.1) VT = 
М(1,Ј) = 


AINT(VT+.5) 
AMAX1(AMIN1(VT,BU(1)),BL( 1)) 


GO TO 32 


DO 31 I=1,NV 

VT = .5*(CEN( l )+V( I ,J)) 

IF (IP.EQ.1) VT = AINT(VT+.5) 
V(I,J) = УТ 

CONTINUE 


IF (LIMT.LT.NLIM) GO TO 33 


CANNOT MAKE THE 'J'TH VERTEX NO LONGER WORST BY DISPLACING TOWARD 
THE CENTROID OR BY OVER-REFLECTING THRU THE BEST VERTEX. 


IER = 2 
IF (NPR .LE. O) GO TO 42 
WRITE (6,52) NT, J 
CALL BOUT (NT,NPT,NFE, NCE, МУ, МУТ, У, К, ЕОМ, СЕМ, Ј) 
GO TO 42 
33 NT = NT+1 
GO TO 20 
SUCCESS: WE HAVE A REPLACEMENT FOR VERTEX J. 
34 FUN(J) = FUNTRY 
FUNOLD = FUNTRY 
NPT = NPT+1 


EVERY 100'TH PERMISSIBLE TRIAL, RECOMPUTE CENTROID SUMMATION TO 
AVOID CREEPING ERROR. 


35 


36 


2m 
38 


39 


HAS THE MAX. 


IF (MOD(NPT, 100).NE.O) CO TO 37 


DO 36 1=1,NV 

SUM(I) = O. 

DO 35 N=1,K 

SUM( 1) = SUM(I)+V(!,N) 
CEN(!) = SUM(I)/FK 
CONTINUE 

LC = 0 

GO TO 39 

DO 38 I=1,NV 

SUM(1) = SUM(1)+V(1,J) 
Ше - 2 


IF (NPR.LE.O) GO TO 40 
IF (MOD(NPT,NPR).NE.O) GO TO 40 


CALL BOUT (NT,NPT,NFE,NCE, NV, NVT, V, K, FUN, CEN, LC) 


NUMBER OF TRIALS BEEN REACHED WITHOUT CONVERGENCE? 
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FIRO6610 
FIRO6620 
FIRO6630 
FIRO6650 
FIRO6650 
FIRO6660 
FIRO6670 
FIRO6680 
FIRO6690 
FIRO6700 
FIRO6710 
FIRO6720 
FIRO6730 
FIRO67Ah0 
FIRO6750 
FIRO6760 
FIRO6770 
FIRO6780 
FIRO6790 
FIRO6800 
FIRO6810 
ҒІ К06820 
FIRO6830 
ҒІК06840 
FIRO6850 
FIRO6860 
FIRO6870 
FIRO6880 
FIRO6890 
FIRO6900 
FIRO6910 
FIRO6920 
FIRO6930 
ҒІК06940 
ҒІК06950 
FIRO6960 
FIRO6970 
FIRO6980 
FIRO6990 
FIRO7000 
FIR07010 
ҒІК07020 
ҒІК07030 
FIR07010 
FIRO7050 
ҒІК07060 
ҒІК07070 
FIRO7080 
FIRO7090 
FIR07100 
FIR07110 
FIRO7120 
FRO? To 
FIRO7150 
FIR07150 


FILE: FIRUP FORTRAN А1 
C IF NOT, GO TO NEM TRIAL. FIRO7160 
40 IF (NT.GE.NTA) GO TO 41 FIRO7170 
C FIRO7180 
C | NEXT-TO-WORST VERTEX NOW BECOMES WORST. FIRO7190 
J = JN F1RO7200 
ЕЙ ТО 17 FIRO7210 
,1 ТЕК = 3 F1RO7220 
IF (NPR. GT.O) WRITE (6,54) FIRO7230 
С ҒІЕ07240 
C COLLECTOR POINT FOR ALL ENDINGS. FIRO7250 
С 1) CANNOT DEVELOP FEASIBLE VERTEX. IER = 1 FIRO7260 
C 2) CANNOT DEVELOP A NO-LONGER-WORST VERTEX. IER = 2 FIRO7270 
С 3) FUNCTION VALUE UNCHANGED FOR K TRIALS. IER = O FIRO7280 
б 4) LIMIT ON TRIALS REACHED. IER = 3 FIRO7290 
С CANNOT FIND FEASIBLE VERTEX AT START. IER = -1 F1R07300 
42 CONTINUE FIRO7310 
C FIRO7320 
C - FIND BEST VERTEX. FIRO7330 
CALL FBV (K, FUN,M) FIRO7340 
IF (1ER.GE.3) GO TO 44 FIR07350 
C FIR07360 
C RESTART IF THIS SOLUTION |S SIGNIFICANTLY BETTER THAN THE PREVIOUS, FIRO7370 
C OR IF THIS IS THE FIRST TRY. F1RO7380 
IF (NPR.LE.O) GO TO 43 F1RO7390 
WRITE (6,55) (M,YMN, FUN(M) ) FIRO74OO 
43 IF (FUN(M).GE. YHN) GO TO 47 FIRO7410 
IF (ABS( FUN(M) -YMN).LE. AMAXI(EP, EP*YMN)) GO TO 47 FIRO7420 
C FIRO7530 
C GIVE IT ANOTHER TRY UNLESS LIMIT ON TRIALS REACHED. FIRO744O 
44 YMN = FUN(M) FIRO7450 
FUN(1) = FUN(M) FIRO7560 
G FIRO7570 
DO 45 1=1,NV FIRO7580 
CEN(1) = V(1,M) FIRO7490 
SUM(1) = V(1,M) FIRO7500 
45 V(1,1) = V(1,M) FIRO7510 
С FIRO7520 
DO 46 1=1,NVT F1RO7530 
цб XS(1) = V(1,M) FIRO7540 
C | FIRO7550 
IF (1ER.LT.3) GO TO 6 FIRO7560 
47 IF (NPR.LE.0) GO TO 48 FIRO7570 
CALL BOUT (NT,NPT,NFE,NCE, NV, NVT, V, K, FUN, V( 1,M), 71) FIRO7580 
WRITE (6,56) FUN(M) FIRO7590 
48 RETURN FIRO7600 
C FIRO7610 
49 FORMAT (50HOINDEX AND DIRECTION OF OUTLYING VARIABLE AT STARTI5) FIRO7620 
50 FORMAT (50HOIMPLICIT CONSTRAINT VIOLATED AT START. DEAD END. ) FIRO7630 
51 FORMAT ('OCANNOT FIND FEASIBLE', 14,'TH VERTEX OR CENTROID AT STARTFIRO7640 
]. FIR07650 
52 FORMAT (10HOAT TRIAL 14,54H CANNOT FIND FEASIBLE VERTEX WHICH IS NFIRO7660 
10 LONGER WORST, 14,15X, "RESTART FROM BEST VERTEX.') F1RO7670 
53 FORMAT (4YOHOFUNCTION HAS BEEN ALMOST UNCHANGED FOR 15,7H TRIALS) FIRO7680 
54 FORMAT (27HOLIMIT ON TRIALS EXCEEDED. ) F1RO7690 
55 FORMAT ('OBEST VERTEX 1S NO.',13,' OLD MIN WAS ',E15.7, F1RO7700 
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FILE: 


FIRAP FORTRAN Al 


214 


' NEW MIN IS. ',E15.7) ҒІК07710 

56 FORMAT ('OMIN OBJECTIVE FUNCTION IS ',E15.7) FIRO7720 
END ҒІК07730 
SUBROUTINE FBV (K,FUN,M) ҒІК07740 
DIMENSION FUN(50) FIRO7750 
a= | FIRO7760 

© FIRO7770 
DO [=2,К ҒІК07780 

IF (FUN(M).LE.FUN(1)) GO TO 1 FIRO7790 

M = | FIR07800 

1 CONTINUE FIR07810 
C ҒІК07820 
RETURN FIRO7830 

. END FIRO78A0 
SUBROUTINE BOUT (NT,NPT,NFE,NCE,NV,NVT, V, K,FN,C, IK) FIRO7850 
DIMENSION V(50,50), FN(50), C(25) FIR07860 
WRITE (6,4) NT,NPT,NFE, NCE ҒІК07870 

c T ҒІК07880 
DO 1 1=1,К FIRO7890 
WRITE (6,5) FN(1),(V(J, 1), J21,NV) FIRO7900 

IF (NVT.LE.NV) GO TO 1 FIRO7910 
NVP = NV+1 FIRO7920 
WRITE (6,6) (V(J,1), JNVP,NVT) FIRO7930 

1 CONTINUE FIRO7950 
€ FIRO7950 
IF (IK.NE.O) GO ТО 2 FIRO7960 

C FIRO7970 
WRITE (6,7) (C(1),121,NV) FIRO7980 
RETURN ҒІ К07990 

2 IF (IK.GE.0) GO TO 3 ΕΙΚΟ8ΟΟΟ 
WRITE (6,8) (C(1), l=1,NV) FIRO8010 
RETURN FIRO8020 

3 WRITE (6,9) 1IK,(C(1),1=1,NV) ҒІК08030 
RETURN FIRO80A0 
FIRO8050 

4 FORMAT ('ONO. TOTAL TRIALS = ',15,4X,'NO. FEASIBLE TRIALS : FIRO8060 
115, 4X, 'NO. FUNCTION EVALUATIONS = ',15,4X,'NO. CONSTRAINT EVALUATIFIRO8070 
20NS = 915/0 FUNCTION VALUE',6X, ' INDEPENDENT VARIABLES/DEPENDF I RO8080 
3ENT OR IMPLICIT CONSTRAINTS' ) F 1RO8090 

5 FORMAT. (1H ,€18.7, 2X, 7E14.7/(21X, 7E14.7) ) FIRO8100 
6 FORMAT (21X,7E14.7) FIRO8110 
7 FORMAT (1OHOCENTROID 11X,7E15.7/(21X,7E15h.7)) FIRO8120 
8 FORMAT ('O BEST VERTEX' ,7X, 7E14.7/(21X, 7E14.7) ) FIRO8130 
9 FORMAT ('OCENTROID. LESS VX'!,12,2X, 7E15.7/(21X, 7E15.7)) FIRO8140 
END FIRO8150 
FUNCTION FE(X) FIRO8160 
DIMENSION X(4) ҒІК08170 
REAL J FIRO8180 
COMMON J FIRO8190 
CALL FIR(X) FIRO8200 
FEzJ FIRO8210 
RETURN FIRO8220 

END FIRO8230 
FUNCTION KE(X) FIRO8240 
DIMENSION X() FIRO8250 


FILE: FIR4P FORTRAN А1 


ту FIROS260 
Πο, FIRO8270 
END 


FIRO8280 
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FILE: FIR4YSIMP FORTRAN ΑἹ 


(G HE HF FH HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF ЗЕ HF HF HF УЕ HF HF HF HF HF HF HF 4F HF HF HF 3F 3¢ HF ¢ 3F ¢ 3F 3# 3# F F | RO OO 1 O 


APPENDIX K 


FORTRAN PROGRAM FIR&YSIM 
ADAPTIVE TRANSVERSAL FILTER SIMULATION 


TO PERFORM THE SIMULATION WE EMPLOY THE PROGRAM FIR WHICH 
WAS USED BY FIR4& TO CALCULATE THE FILTER OUTPUT VALUES WHEN 
CALCULATING THE OPTIMAL FILTER WEIGHTS. WE ACCOMPLISH THIS 
BY CHANGING WS(*) TO THE ACTUAL W(*) AND ALSO DELETING THE 
INITIAL TRIAL BOUNDS REPRESENTED BY WU(*) AND WL(*). 


GO O O O O O O O O O O O 


*FIROOO20 
*FIROOO30 
*F |ROOOYO 
*FIROO050 
*FIROOO60 
*F | R0O0070 
*FIROOO80 
*FIROOO90 
*FIROO100 
*FIROO110 
*FIROO120 
*FIROO130 


(C HE HF HF HF HF HF HF HF HF HF 4F HF 4F HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HHH HHH HHH HH HH HHH HFF F | ROO 1 HO 


REAL W(4),R,JE | 
C W(l) 1S THE CALCULATED OPTIMAL GAIN 
W(1)2-7.5060358 
. W(2)=7.5403662 
W(3)=4. 7097464 
W(4)=-5.3987589 
WRITE (6,25) 


25 FORMAT(1X,' OPTIMAL GAINS‘ ,//) 
DO 30 1=1,4 

30 WRITE(6,40)1,W(1) 

40 БЕКМАТ ТХ, У V 12," )=' F14.7) 
CALL FIR(W) 
STOP 
END 


FIR00150 
FIROO160 
FIROO170 
FIROO180 
FIROO190 
FIROO200 
FIROO210 
FIROO220 
FIROO230 
FI R00210 
FIROO250 
FIROO260 
FIROO270 
FIROO280 


(CHE HF HF HF HF HF HF 9F HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF 9F HF HF HF HF HF HF HF 1F HF HF HF HF HF 1F HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF HF 4F HF HF 3F 3F 4F 3F 3F Е | R00290 


SUBROUTINE FIR(XX) 
C SUBROUTINE FIR(XX) SIMULATES THE FIR ADAPTIVE TRANSVERSAL FILTER 
COMMON J 
REAL*8 J,WO,W1,W2,W3,X1,X2, X3, INPUT, OUT PUT 
DIMENSION XX(4),DESIRE( 105) 
C INITIAL CONDITIONS 
ЕТІМЕ-100. 
τα ο 
| COUNT=2 | 
C INITIALIZE THE COST (CUMULATIVE ERROR) FUNCTION 
J=0.0 
C GAIN COEFFICIENTS TO BE OPTIMIZED 
WO=XX (1 ) 
W1=XX(2) 
W2=XX(3) 
W3=XX(4) 
C SHIFiERECISIERS 
X1=0.0 
X2=0.0 
X3=0.0 
C SIMULATE DESIRED OUTPUT SIGNAL 
DO 15 121,105 


15 ОЕЅІКЕ( 1 )=-1.0 
πο. ІТ 

16 DESIRE(1+44)=1.0 

C 
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FIROO300 
FIROO310 
FIROO320 
FIROO330 
FIROO3A0 
ҒІК00350 
FIROO360 
FIROO370 
FIROOS380 
FIROO390 
F 1 ROO4YOO 
FIROOL1O 
FIROOL20 
ҒІК00530 
Fl ROO4Y4O 
F I R000450 
F I R00460 
ҒІК00870 
ҒІК00580 
ҒІК00490 
ҒІК00500 
ҒІК00510 
ҒІК00520 
FIROO530 
F1ROOS4O 
ҒІК00550 


FILE: FIRUSIMP FORTRAN Al 


Ке 
C OUTPUT HEADING 
WRITE(6,99) 
99 FORMAT(' ','FIR TRANSVERSAL FILTER SIMULATION RESULTS',///, 
&' TIME INPUT SIMULATED OUTPUT DESIRED OUTPUT',/) 


C LOOP FOR 100 SAMPLE ITERATIONS 
200 CONTINUE 
C SIMULATED INPUT SIGNAL (600 HZ + 1200 HZ + 1800 HZ) 
ИНЕШТ-ЗІМГ, ЖЫТІЗСОЭ(. 1%Т)ғ"(2,4С05(.1%Т)) 
С SIMULATED OUTPUT SIGNAL FROM FIR FILTER 
OUTPUTZWO*|NPUT-*W1*X1-*W2*X2*W3*X3 
C WHEN TO PRINTOUT 
IF (ICOUNT.EQ. 2) GO TO 50 
GO TO 300 
C PRINTOUT 
50 CONTINUE 
C EASYPLOT OUTPUT OPTION 


| WRITE (6,100) T, INPUT, OUTPUT, DESIRE(K) 
100 FORMAT( 2X, F8.4, 1X, F8.4, 3X, F8.4, 13X, F8.4) 
SCREEN OUTPUT OPTION 
WRITE (6,100) T, INPUT, OUTPUT, DESIRE( K) 
noo spore (ix, 1i\ME=",F7.3,5xX, 'INPUT=", F8.4,5X, ‘OUTPUT=' , F8.4,5X, 
&'DESIRED OUTPUT=', F8.4) 
|COUNT=1 
TEST IF WANT TO STOP 
300 IF (T.GE.ETIME) GO TO 400 
C JE=ERROR FUNCTION 
JE=(OUTPUT-DESIRE(K))**2 
C J=COST FUNCTION (CUMULATIVE ERROR) 
J=J+JE 
C STEP SIZE DELT 
DELT=1.0 
T=T+DELT 
K=K+1 
ICOUNT=ICOUNT+1 
X3=X2 
Х2-Х1 
X121NPUT 
GO TO 200 
400 RETURN 
END 


O O O O 


Ω 
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FIROO560 
ҒІК00570 
ҒІК00580 
ҒІ К00590 
ҒІ К00600 
FIROO610 
FIROO620 
FIROO630 
ҒІК00640 
FIROO650 
FIROO660 
FIROO670 
FIROO680 
FIROO690 
FIROO/00 
FIROO/10 
FIROO/20 
FIROO/30 
F I ROO 740 
FI ROO 750 
F I ROO 760 
FIROO770 
FIROO/80 
FIROO/90 
F I R00800 
FIROOS810 
FIROOS820 
FIROOS830 
FIROOS8AO 
FIROOS850 
ҒІК00860 
FIROOS870 
FIROOS880 
FIROOS890 
FIROO900 
FIROO910 
FIROO920 
FIROO930 
FIROO9A0 
FIROO950 
FIROO960 
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